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Abstract 

A  quick,  inexpensive  technique  has  been  developed  for  the  analysis  of  a 
full  aircraft  configuration  with  iced  surfaces.  A  comprehensive  literature 
search  of  icing  analysis  methods  is  presented.  Viscous  effects  for  the  flow 
field  about  an  airfoil  with  an  iced  leading  edge  are  accounted  for  in  a  thin- 
layer  Navier-Stokes  code  (ARC2D).  A  panel  code  (PMARC)  solves  the  flow 
field  away  from  the  body.  The  results  of  the  airfoil  analysis  represent  the 
near-field  solutions  and  are  used  to  modify  the  boimdary  conditions  in  the 
three-dimensional  calculations  with  the  panel  code  by  matching  the  local 
circulation.  This  process  is  repeated  until  the  total  lift  coefficient  between 
successive  iterations  differs  by  less  than  a  specified  value.  Comparison 
with  viscous  experimental  data  shows  excellent  results  for  lift  coefficient 
and  a  strong  improvement  over  the  basic  PMARC  for  drag  and  pitching 
moment  coefficients.  For  the  full  configuration  considered,  with  ice 
simulated  on  the  horizontal  tail,  pitching  moment  data  predicts  a  very 
sudden  imstable  pitch  break  above  angle  of  attack  =  8°.  This  tendency 
models  the  pitch  tendency  described  in  the  literature  for  a  similar 
configurations  with  an  iced  horizontal  tail.  Thus,  a  quick  method  has 
been  developed  to  handle  a  full  configuration  with  viscous  effects. 
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Chapter  1 
Introduction 

The  effect  of  airframe  icing  on  aircraft  handling  quedities  and 
performance  is  a  concern  for  the  majority  of  aircraft  operators.  According 
to  the  National  Transportation  Safety  Board:  “Aircraft  structural  icing  is 
primarily  a  problem  for  the  smaller  commuter,  air  taxi  and  general 
aviation  aircraft.  ...  Of  the  approximately  210,000  general  aviation 
aircraft  registered  in  the  United  States  [in  1981],  only  about  12,000  have 
been  issued  certificates  by  the  FAA  for  flight  into  known  icing 
conditions.”!  Yet  pilots  encoimter  airframe  icing  unexpectedly  and  icing  is 
implicated  in  many  accidents  each  year.  From  the  yearly  reviews  of 
aircraft  accident  data,  a  significant  percentage  of  the  general  aviation 
aircraft  accidents  due  to  weather  cite  “icing  conditions”  as  a  cause  or 

factor.2-4 

Airframe  icing  is  not  just  a  concern  for  operators  of  “small”  or  “light” 
aircraft:  there  are  many  instances  of  loss  of  control  or  fatal  crashes  of 
transport  aircraft  due  to  icing.  (References  5  through  9  provide  a  short  list 
representative  of  the  many  air  transport  accidents  due  to  icing.)  These 
accident  investigations  provide  data  showing  the  effects  of  icing  on  the 
aircraft  performance  and  handling  qualities  through  the  data  recorders  on 
the  incident  aircraft.  The  amoimt  of  ice  contamination  necessary  to 
significantly  affect  the  airflow  over  a  control  or  lifting  surface  is  very 
small.  The  Fokker  F.28,  e.g.,  encounters  a  “25%  reduction  in  maximum 
lift  and  a  6°  lower  stall  angle  of  attack.  The  test,  with  contamination 
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equivalent  to  ice  particles  1-2  mm  in  diameter  about  one  particle/cm, 
replicated  a  1969  incident...”® 

As  recently  as  October  1992,  the  FAA,  in  an  article  to  airman, 
discussed  the  “number  of  fatal  and  non-fatal  accidents  and  incidents  of 
imcommanded  pitch-down  resulting  from  tailplane  stall  during  or 
following  flight  in  icing  conditions.”10  This  article  states:  “Ice  induced 
tailplane  stall  accidents  of  record  have  occurred  with  reported  ice 
accretion  from  3/16  to  1  inch  thick  on  the  leading  edge  of  the  tailplane” 
The  most  insidious  part  of  icing  phenomena  is  that  “Tailplane  ice  without 
wing  ice  is  possible”!®  due  to  the  different  physical  layouts  of  different 
airplanes,  i.e.  tail  immersed  in  the  propwash,  differences  in  leading  edge 
radii  of  the  wing  and  tail,  etc.  The  article  concludes  by  stating:  “Pilot 
action  resulting  from  proper  training  using  appropriate  information  can 
have  an  immediate  benefit  in  minimizing  the  hazards  of  ice  induced 
tailplane  stall.”!®  Pilots  could  gain  experience  flying  with  an  ice 
accumcdation  through  simulator  training.  The  aircraft’s  stability  and 
control  characteristics  could  be  developed  for  input  to  the  simulator  if  a 
computer  program  existed  to  model  a  complete  configuration  with  ice 
accumulations.  This  need  is  also  suggested  in  Reference  14  and  discussed 
later  in  this  section. 

Typically,  icing  effects  are  greatest  when  the  aircraft  is  flying  at  an 
angle  of  attack  different  from  the  one  at  which  the  ice  was  accreted. 
Usually  the  ice  is  accreted  at  a  fairly  low  angle  of  attack,  e.g.,  during 
cruise  or  descent.  Then  the  aircraft  flies  at  a  higher  angle  of  attack,  e.g., 
on  approach  or  during  a  go-around  or  a  subsequent  takeoff.  The  built-up 
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airframe  ice  causes  flow  separation  from  the  unprotected  or  poorly 
protected  lifting  or  control  surfaces.  This  can  lead  to  aircraft  pitchup  and 
stall  or  uncontrolled  lateral-directional  motion.  The  ability  to  predict  this 
motion  quickly  would  greatly  aid  in  the  design  of  the  control  system. 

The  Federal  Aviation  Regulations  11* ^2  (p.A.R.'s  Pt.  23  &  25)  require 
that  “An  analysis  must  be  performed  to  establish  . . .  the  adequacy  of  the 
ice  protection  system  for  the  various  components  of  the  airplane.” 

Ferrario  and  Wallis  gjye  excellent  insight  into  the  workings  of  an  icing 
flight  test  program.  Through  this  report,  one  can  \mderstand  the  time 
consuming  and  dangerous  nature  of  certifying  an  aircraft  for  flight  into 
known  icing  conditions.  The  flight  test  program  involves  testing  the 
aircraft  with  simulated  ice  shapes,  with  system  failures  and  flight  in 
actual  icing  conditions.  The  currently  unpredictable  nature  of  this  testing 
is  a  major  contributor  to  the  hazardous  nature  of  this  testing.  A  tool  to 
conduct  some  of  this  analysis  at  minimum  expense  could  shrink  the  flight 
test  matrix  and  reduce  program  cost. 

What  is  the  physical  phenomena  related  to  ice  formation  on  the 
leading  edge  of  a  wing?  Two  general  types  of  ice  form  on  the  wing  surface 
based  on  the  rate  at  which  the  supercooled  water  droplets  freeze.  At 
colder  temperatures,  approximately  -8®C  and  below,  a  dry  growth  (rime) 
ice  forms  and  conforms  to  the  shape  of  the  leading  edge.  Due  to  the 
streamline  nature  of  this  ice  formation,  it  does  “not  adversely  affect  lift 
and  drag  characteristics  of  the  airfoil.”^^  At  temperatures  just  below 
freezing  and  at  a  higher  liquid  water  content,  glaze  ice  forms.  “At  these 
temperatures,  water  droplets  do  not  freeze  immediately  after 


3 


impingement,  but  run  first  on  the  profile  upward  or  downward  from  the 
stagnation  point  before  freezing....  The  result  is  a  deposit  of  ice  with  two 
hom-like  protrusions.  ..Such  an  ice  shape  is  aerodynamically  very 
unfavourable.”  Other  factors  affecting  the  shape  of  ice  formed  include: 
airspeed,  drop  size  and  liquid  water  content  of  the  cloud,  shape  of  the 
surface  and  angle  of  attack. 

Leading  edge  icing  greatly  distorts  the  shape  of  an  airfoil.  Figure  1, 
from  idng  tunnel  experiments,  shows  the  dependence  of  ice  shape  on 
temperature  and  liquid  water  content  (LWC).  Though  there  is  a 
dependence  on  temperat\u*e  and  LWC,  the  mass  of  the  ice  shape  and  the 
general  form  of  the  shape  are  reasonably  constant  away  from  the  freezing 
level.  15  Thus,  modeling  one  ice  shape  can  cover  a  range  of  temperatures 
with  little  loss  of  generality. 
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Figure  1.  Ice  Shapes 
(Copied  from  Reference  15) 

Due  to  the  physical  aspects  of  flow  over  an  iced  airfoil,  a  viscous 
analysis  of  the  flowfield  is  necessary.  Figure  2  shows  the  pertinent 
aspects  of  this  flowfield.  These  key  aspects  include:  the  ice  shape,  or 
“horn”,  a  separated  flow  zone  and  a  thick  distorted  boundary  layer.  The 
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hom  formation,  with  its  accompanying  svirface  roughness,  varies  due  to 
the  type  of  ice  formed.  The  type  of  ice  formed  is  based  mainly  on 
temperature  of  the  air  and  the  airfoil  surface.  Behind  the  “hom”  is  a 
separated  flow  zone  which  can  occur  on  either  the  upper  or  lower  surface 
depending  on  two  factors: 

(1)  the  angle  of  attack  at  which  the  ice  was  formed  and 

(2)  the  angle  of  attack  at  wLi  ;;h  the  aircraft  is  now  flying. 
Finally,  there  is  a  thick  distorted  boimdary  layer  which  alters  the  airfoil 
shape  ftorther  as  well  as  increases  the  drag. 
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^SURFACE  ROUGHNESS 


Figure  2.  Key  Aspects  of  Airfoil  and  Wing  Icing 
(Copied  From  Reference  15) 

Current  analysis  methods  dealing  just  with  an  airfoil  are  not 
adequate  to  satisfy  the  requirements  of  the  F.A.R.’s  regarding  certification 
of  an  aircraft.  What  is  needed  is  the  capability  to  model  tlie  whole 
aircraft.  Bragg  and  Gregorekl®  provide  an  analytical  scheme  using  the 
component  buildup  method.  Limitations  to  this  scheme  include; 
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(1)  using  empirical  correlations  which  “must  come  from  wind 
tunnel  or  flight  tests^^®  (Thus  the  results  are  very  model  dependent.); 

(2)  dealing  only  with  the  lift  and  drag  of  the  iced  aircraft  and  not 
the  moments  that  affect  the  handling  qualities. 

Potapczuk  et  al.!*^  provide  a  step  toward  three-dimensional  ice  accretion 
by  modeling  the  ice  accretion  for  a  swept  wing.  This  is  a  first  step  toward 
modeling  the  accretion  of  ice  on  a  complete  aircraft,  but  the  results  don’t 
compare  well  with  the  2-D  data.  Currently  attempts  are  being  made  to 
model  the  entire  iced  aircraft  in  a  viscous  medium,  but  are  meeting  with 
limited  success.  1®  Thus  analysis  of  a  complete  aircraft  with  icing  is  not 
available  yet. 

Three-dimensional  computation  with  the  full  Navier-Stokes 
equations  for  an  entire  aircraft  is  the  ultimate  solution  due  to  the 
separated  flows  involved.  These  calculations  wotald  be  very  time 
consuming  both  in  generating  the  grid  for  the  flow  solver  and  in  the 
computing  time  required  for  the  solution.  A  quick,  less  expensive  solution 
involves  the  use  of  a  panel  code,  like  PMARC  (Panel  Method,  Ames 
Research  Center),  to  model  the  entire  aircraft.  But  potential  flow 
methods  cannot  model  the  rotational  flow  in  the  separated  wake  behind 
the  ice  shape.  Therefore,  the  proposed  approach  is  to  use  a  Navier-Stokes 
code  (ARC2D)  to  provide  the  near  field  solutions  for  a  panel  code  (PMARC) 
as  described  under  Theoretical  Development. 

Such  a  tool  would  meet  one  of  three  key  objectives  of  NASA’s  Icing 
Technology  Program;  “numerically  simulate  an  aircraft’s  response  to  an 
inflight  icing  encounter.”^® 
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Chapter  2 

Review  of  Literature 

This  section  will  provide  a  review  of  pertinent  literature. 
Experimental  testing  will  be  discussed  first,  followed  by  a  discussion  of 
analytical  results. 

2.1  Experimental 

Much  experimental  work  has  been  reported  on  the  effect  of  ice 
accreted  to  the  leading  edge  of  airfoils  and  wings.  Bragg  and  Gregorek^^ 
used  the  "component  buildup”  method  to  estimate  the  effect  of  ice 
accretion  on  the  performance  of  aircraft.  In  their  method,  they  used 
existing  component  data  and  empirical  correlations  (or  experimental  2-D 
data)  to  predict  aircraft  performance  with  ice.  This  method  relies  on  a 
large  database  developed  from  experimental  testing  including  flights  into 
icing  encoimters. 

To  develop  this  part  of  the  database,  NASA  Lewis  Research  Center 
has  a  Icing  Research  Tunnel  (IRT)  which  simulates  the  effects  conducive 
to  airframe  icing  to  determine  the  effects  on  airfoil  performance. 

Bidwell^l,  as  one  example,  used  the  IRT  to  determine  icing  characteristics 
(shape  and  drag  increase)  of  three  different  airfoils.  These  shapes  can  be 
used  to  model  ice  accretion.  Because  of  the  effects  of  icing  tunnel 
conditions  on  experimental  equipment,  most  flowfield  measurements  for 
an  iced  airfoil  have  been  made  in  a  “clean”  tunnel  using  a  simulated  ice 
shape  which  closely  models  the  shapes  developed  in  the  icing  tunnel.  This 
is  exactly  what  Bragg^O  and  Bragg,  et  al.22  did  to  conduct  their 
investigations.  Bragg,  et  al.,  used  ice  tracings  to  duplicate  the  ice  shapes 
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and  drag  measurements  to  verify  their  methods.  (Drag  is  the  only  value 
which  can  be  directly  measured  during  ice  accretion  in  the  IRT.)  Bragg 
used  these  shapes  attached  to  the  leading  edge  of  a  NACA  0012  to  take 
pressure,  hft,  drag  and  moment  measurements  at  a  variety  of  angles  of 
attack  and  Mach  numbers.  The  effect  of  an  iced  shape  on  c],  Cd,  and  Cnig/4 

is  compared  with  the  data  for  a  “clean”  (no  ice  shape  attached)  NACA  0012 
from  Abbot  and  von  Doenhoff®®  in  Figure  3. 

In  these  figures,  one  can  see  the  reduction  in  both  lift  curve  slope  and 
cimax^or  the  iced  airfoil.  These  reductions  along  with  the  large  increase  in 

Cd  are  attributed  to  the  massive  separation  region  behind  the  “horns”  of 
the  iced  shape.  Notice  the  large  increase  in  drag  coefficient  and  large 
change  in  pitching  moment  due  to  the  distorted  pressure  distribution 
behind  the  iced  shape. 
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Figure  3.  Effect  of  Iced  Shape  on  cj,  cj,  for  a  NACA  0012  Airfoil 
(Clean  Airfoil  Data  from  Ref.  38,  Iced  Airfoil  Data  from  Ref.  20.) 


Korkan23  extended  this  work  to  take  into  account  Reynolds  number 
effects  in  terms  of  Acd  ,  Aci,  and  ACni£y4  due  to  ice  accretion  for  a 

generic  ice  shape.  Flemming  and  Lednicer^^  moved  the  experimental 
database  for  both  accreted  ice  and  simulated  ice  into  the  high-speed 
regime,  considering  Mach  numbers  up  to  0.7.  These  results  improve  the 
prediction  capability  for  ice  thickness,  lift,  drag  and  pitching  moment  by 
increasing  the  number  of  parameters  considered  to  predict  the  type  of  ice 
formed.  The  method  breaks  down  in  the  approach  to  stall  regime. 

Bragg,  et  al.25  extended  simulated  icing  force  measurements  in  the 
third  dimension  by  considering  both  straight  and  swept  wings  with 
simulated  ice.  Flow  vistialization  from  this  study  shows  the 
three-dimensional  nature  of  the  flowfield  about  the  iced  swept  wing. 

To  meet  certification  requirements,  much  full-scale  testing  of  icing 
effects  on  aircraft  has  been  accomplished,  but  most  of  this  data  is 
proprietary.  Laschka  and  Jesse^'*  discuss  the  decision-making  process 
and  testing  required  to  certify  the  Airbus  A300  without  de-icing  or 
anti-icing  protection  on  the  tail  surfaces.  This  investigation  showed  that 
tail  icing  did  have  an  effect  on  the  handling  qualities  of  the  aircraft,  but 
“not  too  serious”  an  effect. 

Ranaudo,  et  al.26  performed  tests  to  determine  the  accuracy  with 
which  the  effects  of  icing  could  be  measured  for  aircraft  longitudinal 
stability  and  control.  In  this  study  they  stated  that  even  if  the  aircraft  is 
equipped  with  energy-efficient  deicing  systems,  they  “. .  .will  have  to 
demonstrate  acceptable  flying  qualities  with  some  leading  edge 
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contamination. .  .”^6  From  this  study,  it  was  determined  that  the  main 
effect  of  icing  is  at  low  speed. 

2.2  Theoretical 

There  are  two  favored  methods  to  perform  the  viscous  analysis  of  an 
airfoil  with  a  leading  edge  ice  shape  attached;  the  interactive 
boimdary-layer  method  and  solution  of  the  Navier-Stokes  equations. 

Cebeci^S  uses  the  interactive  boundary-layer(IBL)  method  to 
calculate  the  viscous  effects  of  an  iced  airfoil.  In  this  method,  an  invisdd 
conformal  mapping  solution  is  made  about  the  airfoil.  Then,  the  boundary 
layer  equations  are  solved  for  this  pressure  distribution.  This 
boimdary-layer  solution  modifies  the  airfoil  shape  and  the  cycle  is 
repeated.  Cebeci^^,  et  al.,  have  applied  this  technique  to  calculate  the 
forces  and  moments  for  an  airfoil  with  an  ice  accretion  shape  developed  by 
LEWICE.  (LEWICE  is  a  computer  program  developed  at  NASA  Lewis 
Research  Center  to  simulate  the  accretion  of  ice  on  an  airfoil.)  This 
method  requires  some  “adjustment”  to  the  iced  shape  to  smoothly 
introduce  the  airfoil  with  this  iced  shape  into  the  calculations. 

Potapczuk27  used  ARC2D  (Ames  Research  Center,  Two 
(2)-Dimensional),  a  thin-layer  Navier-Stokes  code,  to  calculate  the  forces 
and  moments  on  a  NACA  0012  airfoil  with  leading  edge  ice.  The 
NACA  0012  model  was  modified  to  have  a  leading  edge  ice  shape  that  had 
the  gross  cross  sectional  features  of  em  ice  shape  grown  in  the  IRT,  but 
also  had  a  geometry  that  could  be  accurately  digitized  to  allow  input  to  the 
flow  analysis  codes.  This  study  states:  “Computational  results  agree  well 
with  experimental  information  at  angles  of  attack  below  stall.”27 


12 


Reimnann  et  in  a  NASA  summary  paper  on  icing  research,  indicate 
that  both  methods  predict  lift  and  drag  coefficients  well  at  low  angles  of 
attack  (a  <  6°),  but  “the  IBL  code  appeared  inadequate  at  the  high  alphas. 
At  these  higher  angles  of  attack  the  ARC2D  code  predicted  unsteady 
flow.”  This  report  aided  in  the  decision  to  use  ARC2D  to  provide  the 
viscous  analysis. 
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Chapter  3 

Theoretical  Development 

The  primary  objective  in  this  research  is  to  compute  the  longitudinal 
aerodynamics  for  a  complete  airplane  configviration  with  iced  lifting 
surfaces.  Right  now,  there  are  no  simple  and  inexpensive  methods  that 
can  deal  successfully  with  this  problem.  This  section  provides  a 
theoretical  development  of  the  programs  to  be  used  in  this  research. 

These  programs  include;  ARC2D,  a  viscous  flow  analysis  code,  PMARC,  an 
inviscid  panel  code  and  GRAPE,  a  grid  generation  code. 

The  proposed  method  is  to  use  a  panel  code  (PMARC )30.31  to  model 
the  complete  configuration,  while  the  icing  effect  on  a  lifting  surface  is  to 
be  calctilated  with  a  two-dimensional  Navier-Stokes  code  (ARC2D)32, 

How  these  two  solutions  are  utilized  to  obtain  the  final  results  for  a 
complete  airplane  configuration  represents  the  important  contribution  of 
this  research. 

3.1  ARC2D 

The  viscous  effects  on  an  iced  airfoil  will  be  precomputed  using 
ARC2D  and  stored  in  a  “lookup  file”  to  be  referenced  by  PMARC.  ARC2D 
is  based  on  the  thin-layer  Navier-Stokes  equations  in  two-dimensions32. 

The  strong  conservation  form  of  the  two-dimensional  Navier-Stokes 
equations  in  Cartesian  coordinates  and  nondimensional  form  can  be 
written  as  follows: 

dtQ-^dxE  +  dyP  =  Re"'(d,£’v  +  9j,Fv)  (3.1) 

where: 


(3.2a) 
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(3.2b) 


(3.2c) 


The  equation  of  state  relates  the  flow  variables,  Q,  to  pressure; 

P  =  (Y-l)[e-|p(M^+p')j  (3.3) 

In  ARC2D  the  primary  variables,  p  (density),  u  v  (Cartesian  velocities), 
and  e  (total  energy),  are  non-dimensionalized  as: 


Time  is  nondimensionalized  as  f  =  ,  where  /  is  a  characteristic  length. 

The  viscous  coefficients  are  non-dimensionalized  as: 

fi  =  JL,Re  =  £=^  (3.4b) 

H-  li- 

Note  that  Re  uses  aoo,  therefore  Re,  based  on  Uoo  (the  usual  form  for 
experimental  data),  must  be  scaled  by  =«„/«».  For  the  remainder  of 
the  development,  the  ~  will  be  dropped  for  simplicity. 
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Equation  (3. 1)  can  be  transformed  from  Cartesian  coordinates  to 


general  curvilinear  coordinates  where 

r=t 

^  =  <5(x,y,i)  (3.5) 

q  =  q(x,y,t) 

The  transformations  are  chosen  so  that  the  grid  spacing  in  the  cxirvilinear 
space  is  imiform  and  of  iinit  length.  Chain  rule  expansions  are  used  to 
represent  the  Cartesian  derivatives  and  of  Eq.  (3.1)  in  terms  of  the 

curvilinear  derivatives; 

a,  =  0  4.  n.  (3.6) 

M  r  'JyjPn. 

Therefore,  applying  Eq.  (3.6)  to  the  Navier-Stokes  Equations, 

Eq  (3.1),  one  gets 

+ 4x^4^  +  t1x3„£  +  +  T)^d^F  = 

Re-%d^E,  + 

To  this  equation  in  generalized  curvilinear  coordinates,  one  can  apply 
the  thin-layer  approximation.  This  approximation  requires  that: 

(1) .  All  body  surfaces  be  mapped  onto  coordinate  surfaces 

(2) .  Grid  spacing  is  clustered  to  the  body  surfaces  such  that 
sufficient  resolution  for  a  particular  Reynolds  number  is  obtained. 

(3) ,  All  the  viscous  derivatives  in  the  ^-direction  are  neglected, 
while  the  terms  in  the  q-direction  are  retained.  All  of  the  inviscid 
terms  are  used. 

After  applying  this  approximation  to  Eq.  (3.7),  one  obtains; 

3xQ  +  a%E  +  3„F  =  Re-’a,S  (3.8) 

where 


16 


‘p' 

■  p(/  ■ 

pV 

r-^ 

pM 

,E=J'' 

,F=J-' 

PmV  +  ti,p 

J 

pv 

pv(/  +  ^,p 

pvV  +  ri^p 

_  e  _ 

Uie  +  p)-l^,p_ 

y{e  +  p)~T],p_ 

with 

U  =  ^,+^^u  +  %^v,  V  =  T|, +Ti,«  +  TiyU  (3.9b) 


and 


0 

r[^{umi  +  v/Mj  +  "*4)  +  +  v/Tij  +  mj) 


(3.9c) 


and 

m,  =^(4Ti,M^-2TiyV^)/3 

mj  =  +  4ri^v^)/3  (3.9d) 

m4  =  HPr"’(Y-l)‘’^A(°^) 
m,  =nPr-'(Y-l)"'VTi(a^) 


ARC2D  uses  the  Baldwin-Lomax  turbulence  model  which  was 


specifically  designed  for  use  with  the  thin-layer  approximation.32  This 
model  is  appropriate  to  attached  and  mildly  separated  boundary  layers. 
Other  turbxilence  models  have  been  applied  to  the  icing  problem.  In  the 
study  by  Shaw,  et  al.33,  the  Johnson-King  and  the  k-E  models  were  tested 


with  no  noticeable  effect.  This  study  does  conclude  that  “Limitations  . . . 
include  ...  turbulence  modeling."33  Potapczuk^?  used  ARC2D  with  this 
turbulence  model  and  had  good  success  in  modeling  the  simulated  ice 
shape  to  a=7®. 
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ARC2D  uses  an  implicit  approximate  factorization  finite  difference 
scheme  which  can  be  either  first  or  second  order  accurate  in  time.  Local 
time  linearizations  are  applied  to  the  nonlinear  terms  and  an  approximate 
factorization  of  the  two-dimensional  implicit  operator  is  used  to  produce 
locally  one-dimensional  operators.  Approximate  factorization  is 
introduced  because  integration  of  the  full  two-dimensional  operator  is  “too 
expensive.”^^  The  spatial  derivative  terms  are  approximated  with  second 
order  central  differences.  Explicit  and  implicit  artificial  dissipation  terms 
are  added  to  achieve  nonlinear  stability.  A  spatially  variable  time  step  is 
used  to  accelerate  convergence  for  steady-state  calculations.32 

One  arrives  at  the  approximate  factored  form  of  the  Eq  (3.8)  by 
applying  an  implicit  three  point  finite  difference  scheme  of  the  form32: 


where: 


and 


AQ”  =  — |-(AQ")+— 

i+(pat  i-Kpdf  i-Kpdf 


AQ"=Q-^-Q" 


(3.10) 


(3.11a) 


(3”=Q(«A0  (3.11b) 

The  parameters  ^  and  (p  can  be  chosen  to  produce  different  schemes  of 
either  first  or  second  order  accuracy  in  time.  If  d  =  1  and  (p  =  1/2  ,  this 

scheme  is  second  order  in  time. 


Therefore  applying  Eq.  (3.10)  to  Eq.  (3.8)  results  in: 

_  Q-  +  _  Re’’  S;;^’ )  =  0  (3.12) 
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with  h  =  At. 

We  wish  to  solve  Eq.  (3.12)  for  Q"*\  given  Q’'.  The  flixx  vectors  E,F 
and  S  are  nonlinear  ftinctions  of  Q  and  therefore,  Eq.  (3.12)  is  nonlinear 
in  Q"*  .  The  nonlinear  terms  are  linearized  in  time  about  Q"  by  a  Taylor 
series  such  that 


t*^=t  +  A”AQ”+0{}x^) 

=r  +  B”AQ’‘+0{h^)  (3.13) 

Re'^  S"*’  =  Re-’[S"  +  J-^M”AQ”]  +  0{h^ ) 

where  A  =  dE/dQ,  B  =  3f/3(3,  and  M  =  dS/dQ  are  the  flux  Jacobians  and 

AQ”  is  0(h). 


Applying  Eq.  (3.13)  to  Eq.  (3.12)  and  combining  the  AQ"  terms 

produces  the  “delta”  form  of  the  algorithm 

[/  +  hd.A"  +  hdj”  -  Re"’  ;z/-’a„M]A(3"  = 


(3.14) 


This  is  the  unfactored  form  of  the  algorithm.  The  right  hand  side  of 
Eq.  (3.14)  is  called  the  “explicit”  part  and  the  left  hand  side  the  “implicit” 
part.  The  implicit  part  can  be  factored  into  two  one-dimensional  operators 
as 

[/  +  hd^A”  +  hdj”  -  Re-’  hJ-\M]AQ”  = 

[l  +  ha5A"][l  +  h3„B"  -hRe-’a,r’M"]AQ"  (3.15) 

^-direction  term  H-dirction  term 

-h'a^  A"a„B"  AQ"  -  h'  Re-’  3^  A"a  J-’M"AQ" 

^  —  -  _  _  j 

QossTenn 


The  cross  term  is  second  order  accurate  since  AQ"  is  0(h).  It  can 
therefore  be  neglected  without  degrading  the  time  acctiracy  of  any  second 
order  scheme  which  is  chosen. 
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The  resulting  approximate  factored  form  of  the  algorithm  is 


[/  +  //a. A"][/  +  hdj”  - /J Re-' a = 
-;i(ai"+a^F"-Re-'a^s") 


(3.16) 


And  this  allows  the  solution  to  consist  of  two  one-dimensional 
sweeps,  one  in  the  ^-direction  and  one  in  the  ri-direction.  The  resulting 
process  is  much  more  economical  than  the  unfactored  algorithm  in  terms 
of  computer  storage  and  CPU  time. 

3.2  PMARC 

PMARC  (Panel  Method  Ames  Research  Center^O.Sl)  is  the  panel 
code  which  will  be  used  to  model  the  region  away  from  the  airplane.  This 
code  was  derived  from  VSAERO^^  by  including  various  improvements. 
These  improvements^!  are  summarized  as  follows; 

(1) .  In  the  PMARC  code,  the  wake  generation  and  relaxation 
schemes  used  in  the  VSAERO  code  are  replaced  with  a  time-stepping 
wake  model.  This  allows  the  user  to  specify  a  prescribed  motion  for  the 
paneled  geometry. 

(2) .  The  time-stepping  routines  allow  either  unsteady  or  steady 
motions  to  be  prescribed.  Also,  the  time-stepping  wake  makes  it 
possible  to  compute  aerodynamic  data  for  complete  aircraft 
configurations  going  through  maneuvers. 

(3) .  “A  data  management  scheme  has  been  devised  for  PMARC 
which  seeks  to  maximize  the  number  of  panels  the  code  can  handle 
while  minimizing  the  amount  of  memory  and  disk  scratch  space 
required  to  nm  the  code.”^!  Specific  aspects  of  the  data  management 
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scheme  include  use  of  variable  dimensioning  for  all  major  arrays 
within  the  code,  creation  of  a  memory  saving  common  block  in  which  to 
store  arrays  local  to  a  subroutine,  provision  of  a  reasonable  balance 
between  the  amount  of  memory  used  and  the  amount  of  disk  scratch 
space  used,  and  elimination  of  redundancy  of  variables  both  within  the 
code  and  the  plot  and  output  files. 

(4) .  The  PMARC  code  has  adjustable  arrays  for  all  the  geometry, 
wake,  and  solution-related  arrays.  This  allows  the  user  to  customize 
the  size  of  the  code  to  fit  his  particular  needs  and  hardware  capacity. 

(5) .  In  developing  PMARC,  many  of  the  disk  scratch  files,  that 
VSAERO  used,  were  removed  to  conserve  memory.  Removal  of  the 
disk  10  statements  and  use  of  common  blocks  to  pass  information 
between  subroutines  greatly  streamlines  the  coding  and  produces  a 
faster  running  code. 

(6) .  The  aerodynamic  data  section  of  the  output  file  from  PMARC 
has  been  reorganized  to  add  new  options  to  the  panel  aerodynamic 
data  printout  and  to  separate  the  force  and  moment  data  firom  the 
panel  aerodynamic  data. 

In  PMARC,  the  flow  field  is  assumed  to  be  inviscid,  irrotational,  and 
incompressible.  (The  following  development  closely  follows  the 
development  of  Ashby^l.)  The  body  is  modeled  as  a  closed  surface  that 
divides  the  flow  field  into  two  regions,  an  external  and  an  internal  region. 
A  velocity  potential  is  assumed  to  satisfy  the  Laplace  equation  where: 

V^<D  =  0,  (3.17) 

applies  in  the  external  region  and 
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V‘<l>i=0,  (3.18) 

applies  in  the  internal  region. 

By  applying  Green’s  Theorem,  the  potential  at  any  point,  P,  may  be 
evaluated: 


<Dp 


±  II  (|]n.(V4.-V«.,)dS 

S+W+S.  ^  s+w+s. 


(3.19) 


where  r  is  the  dist£ince  from  the  point  P  to  the  element  dS  on  the  surface 
and  n  is  the  unit  normal  to  the  surface  pointing  into  the  flow  field  of 
interest.  Physically,  the  first  integral  represents  the  disturbance  potential 
from  a  surface  distribution  of  doublets  and  the  second  integral  represents 
the  contribution  from  a  surface  distribution  of  sources. 

In  the  development  of  PMARC,  this  equation  is  simplified  through 
the  following  assumptions: 

(1) .  On  the  surface  at  infinity,  the  perturbation  potential  due  the 
body  is  zero,  leaving  only  the  uniform  onset  How. 

(2) .  The  wake  is  thin  and  there  is  no  entraiiunent  so  the  source 
term  for  the  wake  is  zero  and  the  jump  in  normal  velocity  across  the 
wake  is  zero. 

Applying  these  assxunptions,  the  simplified  equation  is: 


Jjf  f)"  • 

S  S 


(3.20) 
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When  performing  the  integration,  the  point  P  must  be  excluded  if  it 
lies  on  the  surface.  Assuming  a  hemispherical  deformation  of  the  surface 

and  evaluating  the  integral  as  the  radius  of  the  hemisphere  goes  to  zero 
gives  a  contribution  at  the  point  P  equaling  ±  (The  plus  sign 

applies  for  points  lying  on  the  inside  of  the  surface  and  the  minus  sign 
applies  for  points  on  the  outside  of  the  surface.) 

The  total  potential,  O,  can  be  viewed  as  being  made  up  of  an  onset 
potential,  <!>„,  and  a  perturbation  potential,  (J)  =  d>  -  <{>..  The  potential  of 
the  flow  internal  to  the  surface  is  set  equal  to  the  onset  potential  <]).. 

(This  boundary  condition  is  chosen  to  reduce  the  magnitudes  of  the 
singularities  on  the  surface.)  Using  this  internal  Dirichlet  boundary 
condition  and  looking  at  points  P  inside  the  surface,  Eq.(3.20)  can  be 
rewritten  as: 

(3.21) 

If  one  refers  to  the  physical  definitions  made  for  Eq.  (3.19),  the 
following  equations  may  be  written  for  the  doublet  and  source  strengths: 

47cp  =  (j)  =  <l>-<l)„  (3.22) 

47ta  =  -/i(V<I>-V<j),)  (3.23) 

Assiuning  that  the  normal  velocity  at  the  surface  is  either  zero  (a 
solid  surface)  or  some  known  value  (a  porous  surface  for  suction  or 
blowing),  then  the  source  strengths  can  be  evaluated  immediately: 

=  (3.24) 
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Substituting  Eqs.  (3.22)  and  (3.23)  into  Eq.  (3.21),  leaves  the  integral 
equation  to  be  solved  for  the  unknown  doublet  strength  over  the  surface: 

0=  +  +  (3.25) 

Discretizing  the  surface  by  breaking  it  up  into  panels  gives  the 
discretized  form  of  Eq.  (3.25),  which  allows  the  integrals  to  be  evaluated 
as  surface  integrals  over  each  panel.  The  surface  integrals  represent  the 
velocity  potential  influence  coefficients  per  unit  singularity  strength  for 
panel  K  acting  on  the  control  point  J.  Hence,  Eq.  (3.25)  becomes; 

y^(PyCjy)+  ^(ayffjy)+  ^(Pyy.Cj^)  =  (3.26) 


iir=i 


Jf=l 


Jf=l 


where: 


and 


(3.27) 


(3.28) 


The  coefficients  Cjk  and  Bjk  represent  the  velocity  potential 
influence  coefficients  per  unit  singularity  strength  for  panel  K  acting  on 
the  control  point  panel  J.  Eqs.  (3.27)  and  (3.28)  are  fimctions  of  geometry 
only  and  can  be  solved  for  all  panels  to  form  the  influence  coefficient 
matrix.  Since  the  source  values  are  known  and  the  wake  doublet  values 
can  be  determined  as  functions  of  the  surface  doublet  values,  only  the 
surface  doublet  strengths  are  unknowns.  Solving  for  these  unknown 
doublet  strengths  allows  all  of  the  panel  singularity  strengths  to  be 
known.  From  these  singularity  strengths,  surface  velocities  can  be 
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determined.  Using  the  surface  velocities,  the  aerodynamic  forces  and 
moments  can  be  calculated. 

3.3  GRAPE 

Grids  will  be  generated  for  the  viscous  2-D  analysis  using  a  program 
called  GRAPE.  GRAPE  stands  for  GRids  about  Airfoils  using  Poisson’s 
Equation.  This  program  was  chosen  for  grid  generation  because  of  its 
ability  to  handle  arbitrary  shapes,  which  is  important  when  the  shape  of 
ice  on  the  leading  edge  of  an  airfoil  is  considered. 

A  detailed  development  of  the  theory  behind  this  program  is 
presented  in  Sorenson^S.  In  this  section,  only  the  main  points  will  be 
discussed. 


Let  %  =  and  r[  =  Tl(jc,y)  specify  the  mapping  from  the  physical 
space  to  the  computational  space.  The  mapping  frmctions  are  required  to 
satisfy  the  Poisson  equahons: 


(3.29) 

(3.30) 

The  following  relations  are  usef\]l  in  transforming  equations  between 

computational  space  and  physical  space; 

(3.31a) 

1 

II 

(3.31b) 

ii 

(3.31c) 

II 

(3.31d) 

where 

'^  =  Vn-^n3'5 

(3.31e) 

Applying  Eqs.(3.31)  to  Eqs.(3.30)  yields  the  transformed  Poisson  equations 
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ou„  -  =  ~J'{Px^  +  Qx^)  (3.32a) 

^yiK  -  +  ^n)  (3.32b) 

where 

a  =  xl  +  yl  (3.32c) 

P  =  jr.jf„+yj>’^  (3.32d) 

y  =  xl+yl  (3.32e) 


Solving  Eqs.  (3.32),  for  a  particular  choice  of  inhomogeneous  terms,  P  and 
Q,  and  for  a  particular  set  of  boundary  conditions,  causes  a  grid  to  be 
generated. 


26 


Chapter  4 

Research  Methodology 

In  this  section,  the  proposed  method  will  be  overviewed.  Then,  two 
similar  approaches  will  be  presented  Eind  the  shortcomings  of  these 
methods  will  be  pointed  out.  Finally  the  proposed  method  will  be 
developed  in  detail. 

4.1  Overview 

A  quick  method  to  analyze  a  three-dimensional  flowfield  about  a 
complete  configuration  is  to  use  a  panel  method,  Hke  PMARC.  But 
PMARC  has  the  deficiency  of  not  being  able  to  account  for  the  effect  of 
flow  separation  on  aerodynamic  characteristics.  No  potential  flow  method 
can  effectively  model  the  rotational  flow  in  the  separated  wake  region.  If 
the  wake  is  away  from  a  lifting  surface,  the  effect  is  not  critical.  However, 
on  a  lifting  surface  with  a  separated  boundary  layer,  a  better  approach  is 
necessary.  Although  a  3-D  Navier-Stokes  method  with  an  appropriate 
turbulent  model  may  be  the  ultimate  solution,  it  would  require  a  very 
time-consiuning  process  to  generate  a  proper  computational  grid  for  the 
flow  solver  of  choice.  The  computing  time  for  the  flow  field  solution  would 
be  extensive.  The  proposed  approach  is  to  use  both  the  panel  code 
(PMARC)  and  a  2-D  Navier-Stokes  code  (ARC2D)  in  the  following  way. 

Essentially,  in  the  near  field  (i.e.,  near  the  wing),  the  2-D  solution  is 
valid;  while  in  the  farfield  the  3-D  solution  is  appropriate.  These  two 
solutions  must  be  matched  so  the  local  circulation  is  the  same.  This 
matching  condition  generates  effective  sectional  angles  of  attack  for  the 
3-D  boundary  conditions.  In  this  approach,  the  2-D  method  is  applied  to 
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the  iced  airfoil  section  before  running  the  3-D  code.  The  2-D  results  are 
used  in  an  iterative  manner  to  arrive  at  the  converged  3-D  solution. 
Experimental  data  can  also  be  used  to  supply  the  necessary  boimdary 
conditions  to  the  3-D  code. 

4.2  A  Similar  Attempt 

Because  the  attempt  about  to  be  reviewed  uses  the  same  tools  as  the 
proposed  research,  its  review  has  been  reserved  imtil  this  section. 

Nathman  and  Strash^S  proposed  using  ARC2D  to  handle  the  viscous 
effects  about  an  iced  airfoil  and  VSAERO  to  analyze  the  irrotational 
flowfield  about  an  aircraft  with  iced  lifting  surfaces.  (As  previously 
mentioned,  PMARC  was  developed  from  VSAERO.)  Two  methods  were 
suggested.  In  the  first  method,  ARC2D  was  used  "to  compute  the 
separation  bubble  behind  the  artificial  ice  shape  for  various  angles  of 
attack.  The  geometry  of  this  bubble  was  used  as  input  to  VSAERO  as  a 
type”36  of  separated  wake.  The  second  (simpler)  method  "used  the  forces 
predicted  on  the  horizontal  tail  by  ARC2D  (allowing  for  the  downwash 
predicted  by  VSAERO)  and  the  forces  of  the  rest  of  the  airplane  from  the 
panel  code.”36 

The  problem  with  both  of  these  methods  is  that  neither  method  really 
takes  the  three-dimensional  effects  into  account.  In  the  first  method,  the 
two-dimensional  solution  is  used  to  set  the  location  for  the  separated  wake 
for  the  three-dimensional  boundary  condition.  In  the  second  method,  the 
downwash  is  used  to  correct  the  angle  of  attack  for  the  two-dimensional 
solution,  but  the  geometry  of  the  iced  shape  and  separated  region  is  not 
allowed  to  affect  the  three-dimensional  solution.  The  proposed  method 
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will  allow  the  two-dimensional  flowfield  to  affect  the  three-dimensioned 
flowfield  and  vice  versa. 

4.3  Coupling  a  Panel  Method  with  2-D  Navier-Stokes  Solutions 

Two-dimensional  Navier-Stokes  solutions  have  been  shown  to  provide 
reasonably  good  prediction  of  icing  effects  on  airfoil  sections^5>27. 

Theoretically,  the  2-D  solution  is  valid  in  the  near  field  (i.e.,  near  the 
wing  section);  but  in  the  far  field,  the  3-D  method  (PMARC)  must  be  used. 
These  two  solutions  are  to  be  matched  by  requiring  the  local  circulation  to 
be  the  same.  This  matching  condition  generates  effective  sectional  angles 
of  attack  for  the  3-D  boundary  conditions.  Note  that  this  approach  is  not 
the  same  as  the  classical  nonlinear  lifting-line  theory  because  no 
lifting-line  method  is  used.  This  method  has  been  used  successfully  in 
predicting  the  aerodynamics  of  a  variety  of  airplane  configurations  at 
different  angles  of  attack,  even  beyond  stall^^.^S.^O  Note  that  if  the  2-D 
residts  are  directly  used,  the  method  becomes  quasi-two-dimensional.  The 
three-dimensional  effect  cannot  be  properly  accounted  for.(E.g,  Ref.  36)  In 
the  proposed  approach,  the  2-D  method  (ARC2D)  is  applied  to  an  airfoil 
section  independently  of  the  operation  of  the  3-D  code(PMARC).  Then  the 
results  from  the  2-D  analysis  will  be  supplied  to  PMARC  in  the  form  of  a 
lookup  table.  The  lifting  surfaces  can  be  discretized  in  to  chordwise  strips 
(like  airfoil  sections)  that  have  an  effective  angle  of  attack.  At  a  given 
effective  angle  of  attack,  the  2-D  values  of  lift,  drag  and  pitching  moment 
can  be  looked  up  and  applied. 

In  this  method  (The  following  description  is  adapted  from  Tseng  and 
Lan39.),  an  effective  angle  of  attack  at  a  spanwise  station,  Ue  ,  is 
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calculated  based  on  the  geometric  angle  of  attack,  On  ,  the  induced  angle 
of  attack,  ai,  the  zero  lift  angle  of  attack,  a©  ,  and  viscous  effects,  Aa. 
Therefore: 


tte  =  ttn  “  -  Oo  -  Aa 

From  this  it  follows  that 

C/(3-D)  =  C/.  sin(a„  -  -  a„  -  Aa) 


Assuming  c,  = 


M; 


-,  Equation  (4.2)  can  be  solved  for  ai; 


aj  =  a^  -  sin 


-1 


-/(3-D) 


-a„-Aa 


(4.1) 

(4.2) 

(4.3) 


If  we  let  the  2-D  section  lift  coefficient,  evaluated  at  an  -  aj,  equal  c^^j-d)  > 


then  define: 

/=^  (4.4) 

^/(3-D) 

Since  is  computed  with  an  inviscid  theory,  its  value  is  usually  larger 
than  if  Aa  »  0.  Therefore,  f  is  usually  less  than  1.0.  In  this  case,  a 

geometric  angle  of  attack  («')  which  produces  the  reduced  lift  can  be 
foimd.  That  is:  sina'=/  sina„  or, 

a'=sin”’(/'sina„)  (4,5) 


It  follows  that  Aa  in  Equation  (1)  becomes 


Aa  =  a„  -  a' 


(4.6) 


The  solution  is  obtained  iteratively  as  follows: 

1,  Assume  Aa  =  0. 

2,  Find  ai  from  Equation  (4.3). 

3.  Calculate  f  from  Equation  (4.4). 

4.  Determine  Aa  from  Equations  (4.5)  and  (4.6). 
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5.  Use  Aa  to  reduce  a  in  the  3-D  boundary  condition  to  determine 

^/(3-D)  ‘ 

6.  Repeat  steps  2  through  5  until  the  successive  total  lift 

coefficients  differ  by  less  than  a  small  value,  e.g.  0.5%. 
Figure  4  is  a  graphical  representation  of  this  iterative  process. 


Figure  4.  Schematic  of  Solution  Process  to  Include  Vicous  Effects 
Following  the  satisfaction  of  the  convergence  criterion  of  Step  6,  drag 
and  pitching  moment  are  calculated.  The  associated  drag  and  pitching 
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moment  for  each  used  in  (4.4)  is  combined  with  the  forces  from  the 

converged  inviscid  solution  to  provide  Cd  and  Cm- 

Cd  is  a  combination  of  the  inviscid  induced  drag  calculated  by 

PMARC  and  the  viscous  sectional  drag  (included  only  for  lifting  surfaces). 
The  viscous  sectional  drag  is  evaluated,  like  at  ttn  -  oci-  The 

calculation  of  Cd  is  illustrated  in  Eq.  (4.7). 


Cq  =C| 


Dnon^lifting 


^d{3-d)i  ^  ^d{2-d)i 


(4.7) 


where  n  is  the  number  of  spanwise  stations  on  the  lifting  surfaces.  Si  is 
the  area  of  spanwise  stations  for  a  lifting  surface.  Remember,  viscous 
drag  for  a  non-lifting  siirface,  e.g.  the  fuselage,  is  not  accoimted  for  in  the 
present  investigation. 

Cm  is  a  combination  of  the  moment  due  to  inviscid  lift  calculated  by 
PMARC  and  the  viscous  drag  plus  the  zero-lift  pitching  moment  of  the 
spanwise  station  being  considered.  Equation  (4.8)  illustrates  the 


calculation  of  Cm- 


f-  ,  (4.8) 


where  ^  is  the  pitching  moment  coefficient  contribution  calculated 

by  PMARC  for  non-lifting  surfaces,  n  is  the  number  of  spanwise  stations 
on  the  lifting  surfaces,  and  and  are  the  perpendicular  x  and  z 

distances  from  the  moment  reference  for  the  2-d  data  to  the  moment 
reference  of  the  model. 

To  show  the  applicability  of  the  forces  and  moments  obtained  from 
the  3-D  code,  these  forces  and  moments  (in  non-dimensional  form)  could 
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be  used  as  input  for  a  simulator  analysis.  This  analysis  would  show  how 
the  aircraft  would  react  in  a  specified  flight  condition  with  a 
representative  ice  accumulation.  This  leads  directly  to  the  partial 
satisfaction  of  the  certifying  regulations. 


Chapter  5 

Results  and  Discussion 

This  chapter  presents  the  results  and  discussion  of  the  present  study. 
This  chapter  is  broken  into  two  parts;  the  first  will  discuss  the  viscous 
analysis  of  the  flow  about  an  iced  airfoil,  using  ARC2D;  the  second  will 
discuss  the  analysis  of  four  configurations  using  PMARC  with  viscous 
corrections:  wing  alone,  wing-body,  wing-fuselage-low  horizontal  tail  and 
wing-fuselage-high  horizontal  tail. 

5.1  Airfoil  Viscous  Analysis 

This  section  presents  work  and  results  completed  to  learn  the 
workings  of  the  viscous  code,  the  grid  generation  code,  then  the  viscous 
analysis  of  an  airfoil  section  with  an  iced  leading  edge. 

5.1.1  NACA  0012  Study 

Initially,  to  become  familiar  with  both  the  grid  generation  program, 
GRAPE,  and  the  Navier-Stokes  code,  ARC2D,  a  study  was  conducted  on 
the  NACA  0012.  This  airfoil  was  chosen  for  two  reasons: 

(1) .  experimental  data  is  readily  available  (e.g.,  Abbott  and  von 
DoenhofP®,  e.g.); 

(2) .  This  is  the  base  airfoil  on  which  experimental  as  well  as 
analytical  icing  research  has  been  conducted.(see  Bragg^O, 

Korkan,  et  al.23,  Bragg,  et  al.25  &  Potapczuk27)  Thus  to  put  an  iced 
shape  on  this  airfoil  will  be  a  natural  development  of  previous 
research. 

In  this  study,  parameters,  such  as  Mach  number,  Re  etc.,  were  chosen  to 
match  the  data  of  Ref.  38.  Figure  5  shows  the  C-grid  system  used  to 
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characterize  the  flow  field  around  the  NACA  0012.  (Every  foiirth  grid 
point  is  shown  to  improve  clarity.)  The  grid  is  made  up  of  253  points  in 
the  direction  aro\md  the  surface  of  the  airfoil  and  64  normal  to  the 
surface.  There  are  46  points  in  the  wake,  leaving  207  on  the  surface.  Grid 
points  are  concentrated  near  the  leading  and  trailing  edges  of  the  airfoil. 


While  refining  this  grid,  sensitivity  studies  were  performed  to 
determine  the  area  reqmred  to  return  to  freestream  conditions  and  the 
grid  density  in  the  spacing  of  the  first  grid  point  normal  to  the  surface.  In 
the  grid  area  sensitivity  study,  flow  fields  of  10c  X  10c  and  15c  X  15c  were 
compared.  Comparing  the  values  at  a=2°  (presented  in  Table  1) ,  one  can 
see  that  both  flow  fields  model  the  physical  situation  with  the  same 
accuracy.  Thus,  the  flow  field  with  the  smaller  area  will  be  used 
throughout  this  study. 


35 


Table  1.  Comparison  of  Grid  Area  Sensitivity,  a=2° 


Cl 

Cd 

Cm 

10c  X  10c 

0.18945 

0.01667 

0.00876 

15c  X  15c 

0.18965 

0.01615 

0.00741 

When  comparing  the  spacing  of  the  first  grid  point,  the  parameter 
used  to  control  this  is  As.  This  value  is  given  in  percent  chord  and  is  used 
to  set  the  spacing  of  the  rest  of  the  points  in  the  direction  normal  to  the 
surface  out  to  fireestream.  In  this  study,  two  values  of  As  were  chosen. 
Both  values  put  a  sufficient  number  of  points  in  the  boundary  layer  to 
characterize  the  viscous  nature  of  this  area  of  the  flow  field.  The  tradeoff 
here  is  between  the  number  of  points  to  characterize  the  boimdary  layer 
vs.  the  number  of  points  to  characterize  the  flow  outside  of  the  boundary 
layer.  Table  2  shows  a  sample  of  the  results  of  this  study  at  a  =  2°. 


Table  2.  Comparison  of  First  Grid  Point  Spacing,  a=2^ 


Cl 

Cd 

Cm<^4 

Abbott  and  von 

DoenhofipS 

0.21 

0.010 

0.00 

As=0.0005 

0.20931 

0.00692 

0.00363 

As=0,00005 

0.18945 

0.01667 

0.00876 

Though  spacings  for  both  grids  do  a  satisfactory  job  of  predicting  ci, 
the  densest  spacing  overpredicts  both  Cd  and  Cnjg^4  .  Thus  the  less  dense 

spacing  will  be  used  throughout  this  study. 


A  third  sensitivity  study  involving  the  number  of  iterations  to 
convergence  was  conducted.  In  this  study  a  variable  timestep  was  used 
based  on  local  eigenvalues.  Two  timesteps  were  considered:  At=2.0  and 
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„  .  Moment  Coefficient  C^,  Drag  Coefficient  r  Lift  Coefficient 


At=4.0.  The  convergence  rates  to  a  steady  state  value  are  compared  for  q, 
Cd  ,  and  Ctnc/4  in  Figure  6. 
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Lift  coefficient  has  converged  for  At=4.0  in  900  iterations  (and 
possibly  as  early  as  600  iterations).  Drag  coefficient  makes  a  small 
change  (<3%)  after  900  iterations  at  At=4.0.  The  moment  coefficient 
shows  convergence  in  900  iterations  for  this  longer  timestep  also.  A 
longer  timestep  was  not  considered  and  the  shorter  timestep  required 
more  CPU  time  to  reach  convergence.  Thus,  this  longer  timestep  will  be 
used  for  computations,  unless  convergence  plots  show  the  need  for  fiuther 
calculation. 

An  overall  comparison  of  the  ARC2D  calculations  of  the  lift,  drag  and 
pitching  moment  coefficients  with  experimental  data  are  given  in  Figure 
7a-c.  This  comparison  is  made  using  the  “standard  roughness”  values  of 
Abbott  and  von  DoenhoflpS  and  with  ARC2D,  assuming  transition  at  the 
point  where  the  roughness  was  applied  in  the  experiment.  Reynolds 
numbers  were  matched  for  this  study  at  Re  =  6  x  10®. 
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Lift  Cofndent,  c, 


Figure  7a.  Lift  Coefficient  Comparison  of  ARC2D  with  Reference  38 

NACA  0012  Section,  Re  =  6  x  10® 
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Figure  7b.  Drag  Polar  Comparison  of  ARC2D  with  Data  of  Reference  38 
NACA  0012  Section,  Re  =  6  x  10® 
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Lift  Coefficient,  Cj 

Figure  7c.  Moment  Coefficient  Comparison  of  ARC2D  with  Data  of 

Reference  38 

NACA  0012  Section,  Re  =  6  x  10® 

Figure  7  shows  that  ARC2D  data  compares  well  with  experimental  data 
up  to  stall.  Note:  In  Abbott  emd  von  DoenhofP®,  for  "standard 
roughness”,  drag  and  pitching  moment  coefficients  are  not  presented 
beyond  a  lift  coefficient  of  approximately  0.8, 

5.1.2  Iced  NACA  0012 

Following  this  study,  a  generic  ice  shape  was  attached  to  the  leading 
edge  of  the  NACA  0012.  This  ice  shape  was  developed  by  Bragg,  et  al.^^ 
and  used  in  the  studies  by  Potapczuk27.  Freestream  conditions  for  the 
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development  of  this  ice  shape  were  a=4°,  T=18°F,  V=130  mph.  Ice 
accretion  time  was  5  minutes.  To  accurately  model  this  shape,  a  picture  of 
this  shape  from  Potapczuk27  was  electronically  scanned,  then  prominent 
points  were  digitized  producing  the  ice  shape  attached  to  the  NACA  0012. 
The  combined  “airfoil”  (airfoil  plus  ice  shape)  is  presented  in  Figure  8. 

Note  the  similarity  of  the  ice  shape  with  the  shapes  in  Figure  1. 


Figure  8.  Iced  Shape  on  a  NACA  0012 


A  grid  was  generated  about  this  iced  airfoil  using  the  resialts  of  the 
previous  sensitivity  studies  and  the  same  grid  point  arrangement  of  the 
previous  NACA  0012  study.  (This  is  the  same  arrangement  as 
Potapczuk27.)  This  grid  is  shown  in  Figure  9.  (Every  fourth  grid  point  is 
shown  to  improve  clarity.) 


Figure  9.  Grid  About  a  NACA  0012  with  an  Iced  Shape  on  the  Leading 

Edge 

After  matching  the  flow  conditions  of  Bragg20  and  Potapczuk27,  an 
angle  of  attack  sweep  was  conducted.  The  results  are  compared  with 
Bragg20and  Potapczuk^^  in  Figure  10. 
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t—  Current  Study 


The  modeling  is  good  up  to  the  onset  of  stall.  At  that  point,  both  the 
data  of  this  research  and  Potapczuk^^  do  not  model  the  flow  field  well.  To 
achieve  the  lift  coefficient  at  a=8°,  Potapczuk^?  averaged  “the  pressure 
coefficient  at  each  location  over  several  shedding  periods.”^?  This  is 
similar  to  an  experimental  setup  where  only  the  steady  pressures  are 
measured.  (Due  to  the  response  times  of  the  measuring  equipment,  the 
experimental  setup  can  not  measure  the  unsteady  pressures.) 

Potapcziak27  attributes  this  Ci  discrepancy  to  the  turbulence  model  and 
suggests  trying  a  different  tmbulence  model  to  capture  the  physics  of  the 
flow  field.  Potapczukl"^  states  that  the  k-e  and  Johnson-King  turbulence 
models  have  been  shown  to  have  little  effect. 

5.1.3  Turbulence  Modeling 

The  Baldwin-Lomax  turbulence  model  is  a  two-layer  algebraic 
turbulence  model,  where  p  =  |i, + |i, .  The  turbulent  viscosity  coefficient, 
p, ,  is  computed  using  two  different  formulae  for  inner  and  outer  layers  of 
the  boxmdary  layer.  The  switch  is  made  at  the  height  above  the  surface 
where  the  coefficients  fi’om  the  two  regions  match.  The  problem  arises  in 
the  computation  of  p,  for  the  outer  layer.  The  vorticity  for  the  outer  layer 

is  based  on  choosing  a  length  scale,  ymax*  when  the  moment  of  vorticity, 

F(  y),  is  a  maximum,  Fmax-  A  more  detailed  discussion  of  the  formulation 

is  given  in  References  32  and  41. 

One  problem  with  the  current  formulation  of  this  turbrdence  model  is 
that  two  (or  more)  extremes  for  F  can  occur  and  the  current  search  routine 
picks  the  greatest.  Figure  11  is  a  plot  of  vorticity  magnitude((o)  and 
moment  of  vorticity,  F(y),  vs.  y/c,  a  distance  measured  normal  to  the  airfoil 
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surface  (in  this  case  at  the  point  of  maximum  thickness  for  the  NACA 
0012).  (Fmax  is  depicted  by  the  location  of  Ymax-  See  Figure  11.)  The 
value  picked  by  the  current  search  scheme  is  not  always  representative  of 
the  physical  situation.  It  might  pick  an  F  that  is  in  the  boundary  sublayer 
or  one  that  is  outside  of  the  boimdary  layer  (which  it  appears  to  have 
picked  here).  In  Figure  11,  Fmax  chosen  by  the  current  search  routine  is 
outside  the  boundary  layer.  The  length  scale  for  the  moment  of  vorticity  is 
too  great.  This  does  not  properly  model  the  physical  situation  by  causing 
“the  details  of  the  computed  flow  to  be  distorted  or  washed  out”.^^  Thus, 
as  part  of  the  present  study,  the  current  implementation  of  the 
Baldwin-Lomax  model  has  been  found  to  not  model  the  physical  situation 
well  near  stall.  A  modification  to  the  search  routine  covdd  improve  the 
results  of  Figure  10  near  the  stall. 
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y/c,  measured  from  the  surface 

Figure  11.  Vorticity  and  Moment  of  Vorticity  vs.  y/c  Measured  From  the 
Surface  of  an  Iced  NACA  0012  at  t/cmax 
This  study  has  applied  the  “modified”  Baldwin-Lomax  tiirbulence 
modeHl  in  ARC2D  and  fovmd  some  improvement  in  the  modeling  of  the 
flow  situation.  In  the  modified  Baldwin-Lomax  model,  numerous  relative 
maxima  are  allowed  and  the  first  maximum  outside  of  the  sublayer  is 
chosen.  In  Figure  12,  the  second  of  6  maxima  is  chosen  to  compute  the 
eddy  viscosity.  (Fmax  #3  through  #6  are  at  a  location,  y/c,  greater  the 
scale  of  this  figure.)  This  data  was  taken  near  t/cmax  on  the  upper  surface 
of  the  iced  NACA  0012,  the  region  where  the  trapped  vortex  has  been 
observed.  Note  the  location  is  in  the  boundary  layer  and  outside  of  the 
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sublayer.  The  computed  lift  coefficient  at  a=8°  is  closer  to  the 
experimental  value.  But  (using  PLOT3D,  “a  computer  graphics  program 
designed  to  visualize  the  grids  and  solutions  of  Computational  Fluid 
Dynamics”'^2)  there  still  appears  to  be  a  trapped  vortex  at  approximately 


Figure  12.  Choice  of  Fmax  in  the  Application  of  the  Modified 
Baldwin-Lomax  Turbulence  Model 
Now  the  question  can  he  asked:  Is  this  vortex  trapped  or  is  the 
numerical  method  looking  at  only  one  instant  in  time  and  only  seeing  the 
vortex  where  it  sits? 
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To  answer  this  question  a  study  was  conducted  to  make  time 


accurate  calculations  using  ARC2D.  (A  Time  Accurate  Solution  is  one  of 


the  solution  options  in  ARC2D.)  Zaman  and  Potapczuk^3  used  this 


method  and  foxmd  a  periodic  nature  to  the  flowfield.  (See  Figure  13.) 
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Figure  13.  Computed  Lift  Coefficient  Variations  with  Time 
(Copied  from  Reference  47) 

In  this  study,  Zaman  and  Potapczuk  foimd  a  vortex  being  shed  off  the 
upper  horn  and  convected  downstream  along  the  upper  surface.  This 
produced  a  periodic  loading  showing  up  in  variations  in  the  lift  and 
pitching  moment  coefficient.  If  one  could  take  this  periodic  loading  and 
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use  a  time  averaging  scheme,  the  experimental  data  collection  could  be 
simulated.  (E.g.,  See  Bragg^O.) 

Along  this  vein,  the  cvurent  study  tried  to  duplicate  Zaman  and 
Potapczuk’s  results-hoping  to  generalize  it  for  any  airfoil  near  stall.  The 
grid  for  this  study  over  the  iced  NACA  0012  airfoil  is  the  same  as  has  been 
discussed  previously.  In  the  time  accurate  study,  two  modified  versions  of 
the  Baldwin-Lomax  tmbiilence  model  were  employed.  In  the  first,  if  more 
than  one  peak  was  present  for  F(y),  the  second  peak  was  used  (analogous 
to  the  method  of  Reference  41).  As  Degani  and  Schifi^l  have  shown,  the 
use  of  the  Baldwin-Lomax  turbulence  model  with  the  second  peak  chosen 
seems  to  more  accurately  model  iJie  physical  situation  and  is  the  first 
model  used  in  the  time  accurate  study.  In  the  second  version,  the  first 
peak  was  used  exclusively.  Two  time  steps  were  also  considered  in  this 
study:  At=0.001  and  At=0.01.  The  first  was  chosen  to  match  the  time  step 
of  Potapczuk^.  The  second  was  chosen  because  of  the  advantage  of  one 
timestep  using  the  second  At  equals  ten  timesteps  with  the  first.  (This 
saves  computing  time.)  Therefore,  if  similar  lift  values  are  found  for  the 
same  time  interval,  the  second  time  step  could  be  used  to  move  the 
solution  away  from  the  point  when  the  airfoil  is  introduced  in  the 
fiowfield.  The  finer  timestep  could  be  used  to  resolve  the  unsteadiness  in 
the  fiowfield  by  using  the  restart  option  with  this  timestep. 

Figure  14  is  representative  of  computations  of  this  study  into  the 
imsteady  nature  of  the  lift  coefficient  using  a  timestep  of  At  =  0.01. 
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Figure  14.  Example  of  Time  Accurate  Computations  for  Lift 
Coefficient,  At  =  0.01,  a  =  8° 

For  each  timestep  (iteration),  the  airfoil,  with  a  coarse  grid,  was 
introduced  into  the  flowfield,  then  after  100  timesteps  the  airfoil,  with  a 
fine  grid,  was  introduced.  As  can  be  observed  over  the  time  interval 
displayed,  an  unsteady  character  to  the  lift  coefficient  is  evident,  but  a 
periodic  character  is  not.  Notice  that  it  took  about  5  time  vmits  for  any 
unsteady  phenomena  to  develop  in  the  time  histories.  After  the  unsteady 
phenomena  developed,  the  data  did  not  demonstrate  any  periodicity  as 
Zaman  and  Potapczuk  had  found.  (In  Zaman  and  Potapczuk’s  paper, 
there  were  times  when  they  found  this  periodicity  and  other  times  when 
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they  covildn’t,  depending  on  “the  turbulence  model  in  use  as  well  as  the 
Reynolds  number”'*^.)  Because  of  the  excessive  computer  time  involved 
(The  timescale  in  Figure  14  represent  10,100  iterations.  10,100  iterations, 
no  matter  what  the  timestep,  take  about  14  hrs.  on  the  IBM  320 
RISC/6000  workstation.  If  ran  on  the  VAX  9000,  the  University  of 
Kansas’  mainframe,  these  same  calculations  would  take  about  7  hrs.  if  one 
could  get  100%  of  the  CPU  time.)  and  the  lack  of  limited  indications  of 
reaching  an  unsteady  solution  that  was  pertinent  to  this  study,  the 
timestep  with  At  =  0.001  was  soon  dropped.  All  fiarther  unsteady 
investigations  were  made  with  At  =  0.01. 

Using  the  previously  determined  timestep,  a  time  averaging  scheme 
was  employed.  In  the  time  averaging  scheme,  the  ci  for  each  time  step  is 
added  to  all  of  the  previous  and  averages  over  the  number  of  time  steps. 
This  scheme  gives  a  “running  average”  of  the  coefficients.  Figure  15  is  an 
example  of  data  firom  this  study  for  a  =  8°. 
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Figure  15.  Lift  Coefficient  For  An  Iced  NACA  0012  at  a  =  8®,  Time 
Accurate  and  Running  Average  Shown 
Figure  15  shows  both  the  time  accurate  results  and  the  ninning 
average  results.  Note  how  the  running  average  damps  out  the  unsteady 
nature  of  the  time  accurate  computations,  acting  just  Uke  a  pressure 
sensing  port  on  an  airfoil  model  in  the  wind  tunnel.  The  angle  of  attack 
presented  is  near  stall  and  the  imsteady  nature  of  the  flowfield  is  expected 
from  the  previous  discussion,  but  what  happens  at  a  lower  angle  of  attack, 
say  a  =  4°? 

Figure  16  is  also  a  time  accurate  plot  of  lift  coefficient,  except  a  =  4°. 
Note  that  there  still  is  an  unsteady  nature  to  the  time  accurate 
computations,  but  the  running  average  ci  matches  the  ci  which  was 
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computed  using  steady  state  methods  in  Figure  9.  Thus,  this  “running 
average”  scheme  seems  to  affect  the  lift  coefficient  in  the  regime  where  the 
flow  is  truly  unsteady,  but  has  little  effect  on  the  lift  coefficient  where 
there  is  not  massive  separation. 


Figure  16.  Lift  Coefficient  For  An  Iced  NACA  0012  at  a  =  4°,  Time 
Accurate  and  Running  Average  Shown 
If  one  is  only  after  the  global  results,  this  technique  shows  promise. 
Unfortunately,  this  technique  did  not  work  as  well  at  a  =  8°,  as  Figures 
17a-c  demonstrate.  These  figures  are  the  best  estimate  from  this  study  for 
the  lift  and  moment  curves  and  drag  polar  for  the  iced  NACA  0012.  Thus 
further  research  is  necessary  in  this  area  of  viscous  flow  calculations  and 
will  be  addressed  in  the  recommendations. 
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Figure  17a.  Lift  Coefficient  for  an  Iced  NACA  0012  Airfoil  Using  Time 
Averaging  of  Time  Accvu'ate  Computations 
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Figure  17b.  Drag  Polar  for  an  Iced  NACA  0012  Airfoil  Using  Time 
Averaging  of  Time  Accurate  Computations 


g  -0.03  J 

a 

o 

-0.04 


-0.05-1 
-0.06 


Experimental 
Numerical 
Present  Study 


I  I  "I  I  I  )  T-  ]  "i— 1 — I— r-T-nr"Tn 

0123456789  10 

Angle  of  Attack  (deg) 


Figure  17c.  Moment  Coefficient  for  an  Iced  NACA  0012  Airfoil  Using 
Time  Averaging  of  Time  Accurate  Computations 


5.2  Modified  PMARC  Results 

This  section  deals  with  the  results  for  the  modifications  to  PMARC 
which  include  viscous  effects.  This  section  will  be  broken  into  three  parts: 
wing  alone  results,  wing-body  results  and  wing-body- tail  results. 

5.2.1  Wing  Alone 

As  outlined  in  Section  4.3,  PMARC  was  modified  to  adjust  the 
spanloading  for  the  effects  of  viscosity.  The  first  test  of  this  method  was  a 
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rectangular  wing  with  a  NACA  0012  airfoil  section  and  an  AR  =  5.  Figure 
18  shows  the  paneling  arrangement  for  this  wing. 


Figure  18.  Panel  Arrangement  for  A  Rectangular  Wing, 

AR  =  5,  NACA  0012  Section 

In  laying  out  the  panels  for  this  study,  two  sensitivity  analyses  were 
conducted.  In  the  first,  lift  and  moment  coefficient  sensitivity  to  spanwise 
panel  number  variation  was  investigated.  30  panels  were  used  in  the 
chordwise  direction.  Figure  19  shows  the  results  of  this  study.  With  the 
number  of  chordwise  panels  chosen  there  seems  to  be  a  slight  decrease  in 
lift  coefficient  and  a  slight  increase  in  moment  coefficient  imtil 
approximately  20  panels  were  used  in  the  spanwise  direction. 
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The  next  sensitivity  study  involved  the  variation  in  the  number  of 
panels  chordwise.  The  spanwise  distribution  was  set  at  20  panels  with  a 
“half-cosine”  distribution.  This  distribution  involves  more  coarse  spacing 
at  the  wingroot  and  denser  spacing  at  the  wingtip  using  a  cosine 
distribution.  Figure  20  shows  the  results  of  this  study.  The  x-axis 
displays  the  total  niunber  of  panels  in  the  chordwise  direction.  The  panels 
were  spaced  using  a  “full  cosine”  spacing  where  paneling  is  more  dense 
near  the  leading  and  trailing  edges  and  coarser  at  midchord.  Notice  that 
the  curve  for  lift  coefficient  “levels  off”  between  30  and  40  panels.  The 
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pitching  moment  does  not  appear  to  reach  a  constant  value  imtil  about  80 
panels.  In  an  attempt  to  maintain  a  reasonable  amoiint  of  computing 
time,  the  lower  value  was  used  for  further  computations. 
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Figure  20.  Sensitivity  Study  for  Chordwise  Panel  Variations 
a  =  5°,  AR  =  5,  20  Panels  Used  Span  wise 
Therefore,  in  summary:  20  panels  EU'e  used  in  the  spanwise  direction 
with  a  half-cosine  spacing,  30  panels  are  used  in  the  chordwise  direction 
using  full  cosine  spacing.  For  the  wing  alone,  there  are  600  panels. 

The  planform  and  airfoil  section,  previously  described,  were  chosen 
because  this  is  the  experimental  setup  of  Bragg  and  Khodadoust^?.  In 
their  experiment,  Bragg  and  Khodadoust  measiired  the  lift  coefficient  for 
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the  rectangular  wing  in  the  Ohio  State  University  wind  tunnel  at  a 
Re  =  1.5  X  10®.  The  experiment  involved  an  angle  of  attack  sweep  for  a 
clean  wing,  i.e.  one  without  an  “iced”  leading  edge,  and  for  a  wing  with  a 
simulated  iced  leading  edge.  The  ice  shape  was  taken  from  tests  in  the 
NASA  Lewis  IRT  and  is  the  same  shape  used  in  two-dimensional  tests  of 
Bragg20.  Thus,  a  comparison  can  be  made  to  both  a  “clean”  wing  and  an 
“iced”  wing.  Figure  21,  copied  from  Reference  45,  shows  their  results. 
Drag  or  pitching  moment  coefficient  data  is  not  provided  in  this  report. 


Figure  21.  Lift  Curve  for  a  Clean  Rectangular  Wing,  AR=5,  NACA 
0012  Section  and  with  Iced  Leading  Edge 
(Copied  from  Reference  45) 

Initially,  an  angle  of  attack  sweep  was  made  for  the  “clean” 


rectangular  wing  with  viscous  corrections.  Wake  from  the  wing  was 
allowed  to  trail  parallel  to  the  x-axis.  The  initial  2-D  viscous  data  used  to 
modify  the  inviscid  solution  came  from  Reference  38.  This  data  provided  a 
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Figure  22.  Span  wise  Variation  of  Effective  Angle  of  Attack 
Rectangular  Wing,  a  =  14°,  AR  =  5 
Note  at  the  inboard  stations  oce  is  greater  than  *i -  o?  -  D)- 
Fortxmately,  the  0012  section  is  a  popular  section  for  study,  and  Reference 
46  provides  lift,  drag  and  pitching  moment  coefficient  data  for  the  range 
0°<a<180°.  But  this  type  of  “savior”  might  not  always  be  available,  and 
this  problem  must  be  considered  when  the  2-D  data  is  acqxiired. 

Figure  23  shows  a  comparison  between  the  experimental  lift  curve 
and  the  computed  lift  curve  of  this  study  with  and  without  viscous  effects. 
PMARC,  without  viscous  effects,  greatly  overpredicts  the  lift  developed  by 
the  rectangular  wing.  The  modifications  of  this  study  provide  a  very  good 
match  to  the  experimental  data.  Note  the  accurate  estimate  of  astall- 
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Figure  23.  Comparison  of  Experimental  Data  for  The  Clean  Rectangular 
Wing,  AR=5,  with  Values  for  This  Study 
(Experimental  Data  From  Reference  45) 

As  a  second  example  of  the  capability  of  this  method,  the  previous 
calcxilations  were  reaccomplished  using  a  2-d  dataset  for  the  iced  airfoil 
from  Reference  20.  Figure  24  shows  the  results  of  these  calculations. 
Again,  PMARC  with  the  viscous  corrections  of  the  current  study  does  a 
very  good  job  of  matching  the  experimental  data.  Note  that  the  stall  angle 
of  attack  is  not  matched  as  closely.  This  can  be  attributed  to  the  2-D  data 
which  does  not  include  many  points  past  Ustall  ■  (See  Figure  9,  to  see  how 
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far  past  stall  data  is  available.)  But  even  with  this  limited  range  of  2-D 
data,  the  lift  curve  does  show  a  non-linearity  approaching  and  after  ttstall- 
This  shows  the  tendency  to  provide  useful  data  in  the  non-linear  regime  of 
the  lift  curve. 
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Figure  24.  Comparison  of  Iced  Rectangular  Wing,  AR  =  5,  with 
Experimental  Data  of  Reference  45 


5.2.2  Wing-Body  Results 

The  next  step  in  the  natural  progression  of  this  study  is  to  include  a 
fuselage  with  a  wing  and  make  comparisons  to  experimental  data,  which 
will  be  accomplished  in  this  section. 

Figure  25  shows  the  experimental  arrangement  for  the  wing-body 
configuration.  Data  computed  for  this  configuration  will  be  compared  to 
experimental  results  of  Reference  47.  This  model  is  a  generic  wing-body 
configuration  with  a  rectangular  wing  of  a  NACA  4412  section,  AR  =  8. 
All  tests  in  Reference  47  were  conducted  at  a  Re  (based  on  wing  chord)  of 
0.3  X  106,  Lift,  drag  and  pitching  moment  data  are  provided  in  the  report. 
Pitching  moment  is  referenced  to  the  half-chord  station  of  the  wing. 
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Figure  25.  Two-views  of  Wing-Body  Experimental  Model 


(Copied  from  Reference  47) 
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Figure  26  shows  the  paneling  arrangement  used  in  the  numerical 
study  of  this  model.  There  are  600  panels  on  the  wing  and  848  panels  for 
the  complete  model. 


Figure  26.  Paneling  Layout  For  The  Wing-Body  Model 
By  introducing  this  new  model,  two  complications  are  added  to  the 
problem.  First,  there  is  a  new  airfoil  at  a  fairly  low  Reynolds  number. 
Second,  the  viscous  drag  of  the  body  is  not  accoimted  for. 

The  first  complication  is  fairly  easily  satisfied  by  the  airfoil  data  of 
Reference  45  which  contains  wind  tunnel  data  for  the  NACA  4412  section 
at  a  Reynolds  number  of  0.7  x  10®.  Unfortunately,  the  drag  and  moment 
coefficients  are  in  standard  NACA  format,  that  is  they  are  not  presented 
beyond  ttstall-  This  could  provide  problems  near  the  agtallOd)-  The 
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pitching  moment  data  is  referenced  to  the  quarter  chord  of  the  airfoil 
section. 

The  second  complication  will  have  to  be  examined  through  the 
calculations.  PMARC  can  model  the  flowfield  changes  caused  by  the  body 
ahead  of  and  behind  the  wing,  but  no  accoimt  is  taken  for  any  viscous 
correction  for  a  non-lifting  surface  in  this  method. 

An  angle  of  attack  sweep  was  made  using  the  wing-body  model. 
Figure  27a-c  presents  the  results  of  this  sweep  for  Hft,  drag  and  pitching 
moment. 
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Figure  27a.  Lift  Curve  for  Wing-Body  Configuration 
Experimental  Data  From  Reference  49. 

In  Figure  27a,  as  has  been  the  trend  from  the  previous  comparisons, 
PMARC  tends  to  over  predict  the  lift  coefficient.  The  viscous  data  tends  to 
slightly  imder  predict  the  experimental  results  until  a  approaches  Ostall  • 
In  this  region,  the  viscous  data  passes  through  the  experimental  data,  but 
there  is  not  much  of  a  change  in  slope,  as  has  been  the  trend,  around 
ctstall-  This  can  be  attributed  to  the  2'D  data,  as  there  is  not  much  data 
presented  past  Wstall-  This  same  effect  showed  up  in  the  comparison  to  the 
iced  wing  data. 
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Figure  27b.  Drag  Polar  for  Wing-Body  Configuration 
Experimental  Data  From  Reference  49. 

PMARC,  for  the  data  of  the  Present  Study  in  Figure  27b,  tends  to 
underpredict  the  experimental  results.  Some  of  this  can  be  attributed  to 
not  modeling  the  viscous  drag  of  the  body.  But  that  increment  in  drag 
probably  would  not  make  up  all  of  the  difference.  No  further  explanation 
is  available  at  this  time  and  will  require  further  investigation. 
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Figure  27c.  Moment  Curve  for  Wing-Body  Configuration 
Experimental  Data  From  Reference  49. 

Pitching  moment  coefficient,  in  Figure  27c,  makes  an  excellent  match 
of  the  experimental  data.  PMARC  tended  to  underpredict  the 
experimental  data.  This  could  be  expected  because  the  moment  caused  by 
the  aft  portion  of  the  body  tends  not  to  model  the  blunt  aft  end  of  the 
model  very  well. 
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5.2.3  Wing'Body-Horizontal  Tail  Results 

The  final  step  in  the  natural  progression  of  this  study  is  to  add  a 
horizontal  tail  to  the  wing-body  model  analyzed  in  the  previous  section. 
This  analysis  will  be  accomplished  in  this  section  for  the  full  configuration 
with  a  “clean”  tail  and  with  an  “iced”  tail.  A  study  showing  the  sensitivity 
of  wing  wake  position  in  relation  to  the  tail  will  also  be  presented. 

Figure  27  shows  the  experimental  arrangement  for  the 
wing-body-low  tail  configuration.  Data  computed  for  this  configuration 
will  be  compared  to  the  experimental  results  of  Reference  47.  The  wing 
and  body  were  described  in  the  previous  section.  The  tail  is  a  rectangular 
wing  of  a  NACA  0012  section  of  AR=4.4  moimted  on  the  centerline  of  the 
model.  Lift,  drag  and  pitching  moment  data  are  provided  in  the  report. 
Pitching  moment  coefficient  is  referenced  to  the  half-chord  station  of  the 
wing. 
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Figure  28.  Two-views  Of  The  Wing-Body- Tail  Experimental  Model 

(Copied  from  Ref  47) 
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Figure  29  shows  the  paneling  arrangement  used  in  the  numerical 
study  of  this  model.  There  are  600  panels  on  the  wing,  200  on  the  tail  and 
1128  total  panels  for  the  complete  model. 


Figure  29.  Panehng  Layout  For  the  Wing-Body-Low  Tail  Model 
By  introducing  the  coplanar  horizontal  tail  to  the  model  of  the 
previous  section,  a  large  complication  was  added  to  the  problem. 

Including  the  coplanar  (in  the  same  plane  as  the  wing)  horizontal  tail  adds 
the  problem  of  “How  do  you  properly  model  the  placement  of  the  wake  off 
the  main  wing  because  of  the  tail  location?” 

This  is  a  problem  because  all  previous  analyses  assximed  that  the 
wake  was  parallel  to  the  x-axis.  Using  this  assumption,  the  wake  would 
cut  right  through  the  interior  of  the  horizontal  tail.  Due  to  the 
singularities  in  the  wing  wake  being  on  the  “wrong”  (inside)  of  the 
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singularities  on  the  tail,  computational  problems  arise.  In  the 
development  of  PMARC  (and  VSAERO),  the  internal  flow  is  assumed  to  be 
equal  to  the  onset  flow  when  the  singularity  model  is  chosen.34  By 
putting  the  wing  wake  inside  of  the  tail,  we  are  violating  this  singularity 
model. 

Further  research  included  a  discussion  with  D.  Ashby^®,  in  which  he 
suggested  “possibly  stitching”  the  wake  to  the  body  imder  (or  over)  the  tail 
and  adding  a  short  aft  cone  to  the  model  to  bring  the  wake  to  the 
centerline.  This  was  attempted  and  met  with  limited  to  no  success. 
Sectional  lift  coefficients  on  the  inboard  most  panel  column  of  the  tail 
were  unreasonably  high  (on  the  order  of  10  or  greater)  and  thus  pitching 
moments  were  unrealistic.  Further  attempts  at  modif3dng  the  wake  or 
letting  the  wake  deform  met  with  no  success.  PMARC  does  not  account 
for  the  special  case,34  when  the  wake  is  in  the  plane  of  the  surface  panel. 
So  a  major  modification  to  PMARC  was  developed. 

This  modification  involved  chanpng  the  way  the  inboardmost  wake 
panel  of  a  lifting  surface  is  handled.  The  wake  is  modeled  by  doublets  and 
the  effect  of  a  w£ike  doublet  on  a  surface  panel  is  accounted  for  through  a 
surface  integration  The  integration  considers  the  effect  of  a  semi-infinite 
doublet  placed  on  each  of  the  four  sides  of  a  wake  panel.  Due  to  the  way 
the  singularities  are  placed,  PMARC  thought  the  inboard  most  wake  was 
similar  to  the  wake  column  at  the  wingtip,  i.e.,  like  a  strong  tip  vortex. 
The  vortex  effect  is  developed  because  the  effect  of  a  siorface  panel  with  a 
doublet  is  equal  to  a  vortex  ring  of  the  same  strength  as  the  doublet.  To 
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modify  PMARC,  the  value  of  the  integration  for  the  effect  of  the 
inboardmost  wake  column  on  a  sxirface  panel  is  scaled  by  the  ratio  of 

wake  panel  perimeter -length  of  inmost  panel  edge 
wake  panel  perimeter 

Using  this  ratio,  is  the  same  as  eliminating  the  inboardmost  side  of  a 
vortex  ring.  The  effects  of  the  other  three  sides  are  canceled  by  vortices  of 
equal  and  opposite  strength  that  overlay  in  the  wake  mesh.  Thus,  as  is 
physically  realistic,  we  have  removed  the  vortex  along  the  body  and  we 
retain  the  tip  vortex. 

The  problem  of  wake  placement  is  mollified,  but  still  not  completely 
removed  as  the  following  sensitivity  study  shows.  Figxares  30a&b  show 
the  results  of  the  sensitivity  study  for  3  different  wake  defiections:  +1° 
(which  places  the  wake  just  above  the  tail),  -1°  (which  places  the  wake  just 
below  the  tail)  and  +3°  (for  symmetry  about  the  +1°  data  point). 
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Lift  Coefficient,  C 


Angle  of  Attack,  alpha  (degrees) 


Figure  30a.  Wake  Position  Sensitivity  on  Lift  Coefficient, 
Wing- Body-Low  Tail  Configuration 
(Experimental  data  is  from  Reference  47) 
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Moment  Coefficient,  Cj^  ^ 

Figure  30b.  Wake  Position  Sensitivity  on  Pitching  Moment  Coefficient, 
Wing-Body-Low  Tail  Configuration 
(Experimental  data  is  from  Reference  49) 

As  Figmes  30a  &  b  demonstrate,  the  assvuned  position  of  the  wake 
has  a  strong  effect  on  the  pitching  moment.  Putting  the  wake  imder  the 
tail,  causes  large  negative  lift  on  the  tail  and  a  strong  pitchup  (positive) 
moment.  Putting  the  wake  relatively  high  above  the  tail  causes  a  large 
pitchdown  moment.  Putting  the  wake  as  close  as  is  possible  to  the  x-axis 
appears  to  be  the  best  solution.  Because  of  the  coplanar  tail,  the 
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+l°-denection  is  a  good  compromise.  This  is  the  assumed  wake  deflection 
throughout  the  rest  of  this  study.  Note  that  the  W2ike  position  has  little 
effect  on  the  global  lift  coefficient  at  lower  angles  of  attack,  but  the 
location  of  the  wake  relative  to  the  tail  has  a  large  effect  at  higher  angles 
of  attack. 

Using  the  results  of  this  sensitivity  study,  the  full  configuration  can 
be  analyzed.  Figures  31a-c  show  plots  of  the  longitudinal  force  and 
moment  coefficients  for  the  full  configuration  with  a  low  tail. 


Figure  31a.  Lift  Curves  for  Wing-Body-Low  Tail  Configuration 
(Experimental  Data  From  Reference  47) 
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Figure  31c.  Pitching  Moment  Curve  for  Wing-Body-Low  Tail 

Configuration 

(Experimental  Data  From  Reference  47) 

In  Figure  31a,  one  can  see  that  the  viscous  modifications  to  PMARC 
do  an  excellent  job  of  matching  the  experimental  lift  coefficient. 
Remember,  viscous  corrections  are  made  to  each  lifting  surface,  but  not  to 
the  body.  The  drag  coefficient  again  is  underpredicted,  in  Figure  31b,  but 
is  an  improvement  over  the  inviscid  solution.  The  pitching  moment  of 
Figure  31c  follows  the  same  trend  as  the  experimental  data,  but  is 
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displaced  in  a  more  stable  direction.  This  can  partly  be  attributed  to  the 
wake  deflection  problem. 

Using  this  same  configuration,  one  can  now  consider  that  the  tail  has 
accumulated  ice  along  the  leading  edge.  To  model  this,  the  leading  edge  of 
the  main  wing  doesn’t  need  to  have  accumulated  any  ice  as  Reference  46 
has  stated.  Furthermore,  as  Reference  50  stated,  “The  horizontal  tail  will 
accumulate  ice  up  to  four  times  as  fast  as  the  main  wing  due  to  the 
usually  smaller  cross-sectional  area  and  smaller  radius  of  curvature  than 
the  main  wing.”  Thus,  this  study  will  model  this  situation  with  ice  only  on 
the  tail. 

To  model  this  new  situation  all  that  has  to  be  changed  is  the  2-D  data 
input  set  for  the  tail,  i.e.  replace  the  viscous  2-D  clean  airfoil  data  with 
viscous  2-D  iced  airfoil  data  (obtained  either  experimentally  or 
analytically).  Figures  32a-c  show  the  results  of  this  analysis. 
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Figure  32a.  Lift  Ciirve  for  Wing-Body-Tail  Configuration  with  Iced  Low 

Tail 

(Experimental  data  is  from  Reference  47) 
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Drag  Coefficient,  C 


Lift  Coefficient,  C^ 

Figure  32b.  Drag  Polar  for  Wing-Body-Tail  Configuration  with  Iced  Low 

Tail 

(Experimental  data  is  from  Reference  47) 
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Figure  32c.  Pitching  Moment  Curve  for  Wing-Body-Tail  Configuration 

with  Iced  Low  Tail 

(Experimental  data  is  from  Reference  47) 

Figure  32a  shows  there  is  very  little  change  in  the  lift  coefficient  with 
ice  on  the  tail.  (Compare  this  to  Figure  3  at  a  <  5°.)  Notice  at  a  =  10°,  Cl 
for  the  iced  configuration  is  less  than  for  the  clean  configuration.  This 
shows  that  some  portions  of  the  iced  tail  are  approaching  Ostall-  (Figure  3 
shows  a  large  difference  between  ci  for  the  clean  airfoil  vs.  the  iced  airfoil 
at  Ostall  for  the  iced  airfoil.)  The  drag  coefficient  is  seen  to  increase  as  is 
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expected.  Figure  31c  shows  that  the  biggest  change  with  ice  included  is  in 
the  pitching  moment.  Though  the  values  of  the  pitching  moment  don’t 
match  the  experimental  values,  the  trends  are  important.  Initially,  at  low 
lift  coefficients,  the  ice  has  little  effect.  As  the  lift  coefficient  increases, 
one  sees  a  slight  reduction  in  the  stability.  Then,  as  discussed  in 
Reference  10,  one  sees  a  prediction  of  a  dramatically  unstable  pitch  break. 
(It  would  be  dramatic  from  the  pilot’s  point  of  view.) 

Physically,  what  is  happening  to  cause  this  imstable  pitch  break? 
Looking  at  Figure  3,  one  can  see  that  there  is  little  difference  in  lift 
coefficients  at  lower  angles  of  attack.  But  as  the  angle  of  attack  is 
increased,  this  difference  is  increasing  rapidly.  Because  the  horizontal 
tail  provides  a  small  portion  of  the  total  lift  coefficient,  one  would  not 
expect  to  see  a  big  change  in  total  lift  coefficient  as  angle  of  attack 
increases.  This  is  what  Figure  32a  shows.  Now  think  about  the  total 
pitching  moment.  This  change  in  sectional  lift  coefficient  with  change  in 
angle  of  attack  will  have  a  large  effect  as  the  angle  of  attack  increases. 
And  at  some  angle  of  attack,  the  lift  on  the  tail  will  start  to  decrease  as 
parts  of  the  tail  stall  with  increasing  angle  of  attack.  This  causes  the 
pitch  break  that  is  demonstrated  in  Figure  32c.  (This  explanation  shows 
why  the  “similar  attempts”  didn’t  work.  You  csm  not  just  apply  the  2-D 
values  on  the  model.  You  need  the  full  3-D  effect,  which  is  included  by 
matching  the  local  circulation.) 

One  final  study  will  examine  the  effects  of  moving  tail  out  of  the 
downwash  of  the  wing.  As  a  secondary  effect,  the  wing  wake  placement  is 
no  longer  interfering  with  the  tail.  Though  the  wake  could  parallel  the  x- 
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axis,  it  will  be  modeled  with  the  same  deflection  as  the  previous  study  to 
eliminate  this  variable  from  analysis  of  the  results.  In  this  study,  the  tail 
is  moved  1.7c  above  the  previous  tail  location.  Figure  33  shows  the 
paneled  model  for  this  study. 


Figure  33.  Paneling  Layout  for  Wing-Body-T-tail  Configuration 
Figures  34a-c  show  the  results  for  a  wing-body-t-tail  (wbt-t) 
configuration  with  a  clean  tail  and  with  an  iced  tail. 
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Figure  34a.  Lift  Curve  For  The  WBT-T  Configuration 
Figure  34a  follows  the  trend  of  the  previous  study:  there  is  very  little 
if  any  difference  in  lift  coefficient  between  the  clean  configuration  and  the 
iced  configuration.  This  is  due  to  two  factors: 

(1)  the  size  difference  between  the  two  lifting  surfaces,  i.e.  the  tail 
provides  a  much  smaller  portion  of  the  lift; 

(2)  the  spanloading  of  the  tail  for  the  iced  configuration.  Not  all 
of  the  tail  is  in  a  regime  where  the  lift  has  started  to  reduce  with 
increasing  a,  thus  the  overall  lift  does  not  change  much. 


87 


Lift  Coefficient, 


Figure  34b.  Drag  Polar  For  The  WBT-T  Configuration 
Figure  34b  shows  the  drag  polar  for  the  clean  and  iced  t-tail 
configuration.  This  figure  follows  the  expected  trend  of  an  increase  in 
drag  coefficient  for  the  iced  configuration  over  the  clean  configuration. 


Figure  34c.  Pitching  Moment  Curve  For  The  WBT-T  Configuration 
Figure  34c  shows  the  pitching  moment  coefficient  for  the  wbt-t 
configuration.  This  plot  shows  a  very  interesting  development--the 
pitching  moment  starts  out  to  be  positive  as  would  be  expected  from  the 
experimentad  study  with  a  low  tail  configuration.  As  the  lift  coefficient 
increases  to  about  0.7,  the  stability  increases  for  both  conditions.  Then, 
while  the  clean  configuration  becomes  more  stable,  the  pitch  stability 
decreases  for  iced  configuration.  This  change  in  stability  condition  for  the 
iced  configuration  can  be  explained  by  two  factors  with  reference  to  Figure 
3.  The  first  deals  with  the  reduction  in  lift  for  an  iced  airfoil.  Remember, 
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Figure  35  shows  the  power  of  this  method.  One  of  the  values  used  to 
modify  the  circulation  on  the  tail  is  the  effective  angle  of  attack, 
Combining  the  spanwise  variation  in  oce  with  the  2-D  calculations  about 
the  viscous  airfoil,  one  can  get  a  feel  for  what  is  happening  spanwise 
across  the  tail  with  simulated  ice.  For  example,  from  Figure  35  one  can 
see  as  the  effective  angle  of  attack  increases,  the  vortex  above  the  wing 
grows.  (Compare  the  PLOT3D^2  total  pressure  contours  at  the  inboard 
and  outboard  stations.)  From  experimental  studies^®,  it  has  been  shown 
that  this  vortex  is  shed  periodically.  Thus  the  inboard  portion  of  the  tail 
would  demonstrate  an  imsteady  nature.  Notice  also  how  little  the  flow 
field  at  the  outboard  station  of  the  tail  is  affected  by  this  vortex,.  This 
picture  helps  to  explain  the  small  difference  in  lift  coefSdents  between 
clean  and  iced  configurations  at  the  lower  geometrice  angles  of  attack. 
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Chapter  6 

Conclusions  and  Recommendations 

This  chapter  lists  conclusions  from  the  present  study  along  with 
recommendations  for  futinre  work. 

6.1  Conclusions 

A  new  method  has  been  developed  to  quickly  analyze  a  full  aircraft 
configuration  taking  into  accoimt  viscous  effects.  Experimental  sectional 
data  or  precomputed  viscous  2-D  calculations,  from  a  code  like  ARC2D, 
were  used  as  input  to  the  modified  panel  code  PMARC.  PMARC  has  been 
modified  to  find  an  iterated  solution  which  matches  the  local  circulation. 
From  this  matching  condition  Cl,,  Cd  and  Cm  for  the  complete 
configuration  were  calculated  that  include  viscous  effects  for  lifting 
siufaces. 

Using  this  modified  version  of  PMARC  and  appropriate  2-d  viscous 
sectional  data,  it  has  been  shown  that: 

(1)  The  lift  curve  slope  has  been  accurately  calculated  for  a  wing 
alone.  If  2-D  sectional  data  were  available  for  a  high  enough  angle  of 
attack,  Ustall  could  be  accurately  calculated. 

(2)  The  lift  and  pitching  moment  curves  for  a  wing-body 
configuration  have  been  accurately  calculated.  There  was  some 
discrepancy  in  the  drag  polar.  Part  of  this  discrepancy  could  be 
accounted  for  because  viscous  effects  for  the  body  were  not  included. 

(3)  The  lift  curve  for  two  wing-body-tail  configmations  have  been 
accurately  calculated  within  the  constraints  of  the  2-D  data  available. 
Drag  polar  and  pitching  moment  curves  exhibit  the  proper  trends,  but 
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did  not  match  the  experimental  data  as  well.  The  pitching  moment 
data  did  predict  the  reduction  in  stability  due  to  icing  effects  on  the 
tail. 

6.2  Recommendations 

The  viscous  analysis  of  flow  over  an  airfoil  past  stall  does  not  model 
the  physical  situation  very  well.  Indications  were  that  the  turbulence 
model  used  in  ARC2D  does  not  properly  model  the  physics.  Further 
investigation  into  a  proper  way  to  model  the  effect  of  turbulence  with  a 
simple,  efficient  model  would  improve  the  capability  of  ARC2D  and 
greatly  improve  the  capability  of  the  method  of  the  present  study. 

Because  Reynolds  number  has  a  great  effect  on  the  2-D  flowfield 
about  an  airfoil  near  stall,  Re3molds  number  effects  need  to  be  included  in 
this  modification  to  PMARC  to  make  it  more  widely  applicable. 

Further  investigation  into  the  modeling  of  the  wake  shed  by  the 
lifting  surfaces  would  ease  the  use  of  PMARC.  Currently  the  position  of 
the  weike  has  a  great  effect  on  the  results  when  the  wake  is  near  a  lifting 
surface  and  yet  with  certain  configurations  this  situation  can  not  be 
avoided.  Especially  in  the  coplanar  tail  model  studies,  the  wake  position 
had  a  large  effect  on  pitching  moment  coefficient.  Thus  a  better  way  to 
model  the  wake  is  necessary  to  correct  the  magnitude  of  the  pitching 
moment  coefficient. 

One  area  that  has  not  been  considered  but  is  a  natural  outshoot  of 
this  research  is  the  effect  of  icing  on  the  elevator  hinge  moment.  Ice  on 
the  tail  causes  the  flow  field  over  the  elevator  to  be  distorted.  Due  to  this 
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distorted  flow  field,  hinge  moments  can  change.  These  changes  affect  the 
pilot’s  recovery  capability  with  an  iced  tail.  Being  able  to  predict  the 
hinge  moments  would  facihtate  control  system  design  and  recovery 
techniques  with  an  iced  tail. 
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Appendix  A. 

Makefile  For  Modified  PMARC 


cne  suoroutines 
this  study.  A1 


This  makefile  contains  a  listing  of  all  of 
necessary  to  compile  the  Modified  PMARC  of 
of  the  subroutines  listed  except  RESTPMARC.f  and  SURFINF.f 
have  been  modified  or  created  to  implement  the  changes  of 
this  study.  All  of  these  modified  or  created  subroutines 
are  included  in  the  following  appendices  for  com.plete 
doc’umentation  of  this  work. 


cpnirc.c  a^rccai.c  restprriarr 
wakirifi  .  c  rr.s  ■  c  id'-t-p-::: 
>:li  -c  npr.arr  dprr.arc.c  aero: 

viscdat&.o  ^ 


sur 

dpr-.arc .  c ;  d^.Brc .  f 

f.r. 

:.c  -er.gch.t- 

xli  -qdpc  -C 
aercaat.c:  aarcdat.f 

-c 

dpr.arc .  f 

xlf  -qapc  -C 
resipTT.arc.o:  restpr.ar 

-c 

c.  f 

aerocat . f 

xli  -qjpc  -C 
search. c:  search. f 

-c 

rescpff.arc .  f 

xli  -qdpc  -C 
viscca^a.c:  vlscdaca. 

-c 

search . f 

xli  -qdpc  -0 
;eps.f 

•c 

viscdaza . i 

-qdpc  -C 
viKir.;'.  .Ci  wakir.n.J 

•  c 

jets . ; 

x'.i  -qdpc  -C 
ri'.s.e;  rhs.f 

-c 

wakrr.i:  .f 

K'.i  -qdpc  -c 
;d-bpoc.C;  idubpol.f 

rhs. ; 

xlf  -qdpc  -C 

-c 

i  d'jbpot .  t 

x;i  -qdpc  -C 
lir.pcb.c:  ler.qch.f 

-Ij 

surdir.;.: 

xld  -qdpc  -C 

-c 

lenjth. f 

C^.  *:  V*lSC3aTo.C' 

sStpr.arc-c  searrh.c--, 
-c  rne.c  icucpot.O' 
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o  o  r> 


Appendix  B. 

Main  Program  DPMARC.f 


C  MASTER  VERSION  NUMBER:  Re-eas-c  Versicr. 

C  PURPOSE;  MAIN  ORI\^ER  EOR  PMART  =?03f..AM 


::  '16/90 


C  CAUIED  BY:  NONE 

OPENF  .  JCBOATA,  SURF  SEN  ,  SUr  r  AN,  N'A3  OPS  ,  SURFINT ,  WAi’INIT , 
WAKPAK,  WAFINTL.  SOl'.'EF  ,  WAJtSUB  ,  rCEUKANN,  AEROOAT . 
CORNERFT,  aAKSTE?  ,  STPMUIN*,  VSOAN',  PATH 

C  ENVIRONMENT:  VAX/ VMS  FORTRAN, CRAY  OFT  FORTRAN, 
r  MACINTOSH  OCK  MACTr.AN  PLUS  l-C 

C 

C  A'OrriOR;  Dale  Ashby, 

c  KS  2il-2,  NASA  Ames  Fesearc'r.  Carter,  Moffett  Field,  CA.  SeClE 


rFSCSIFTlON 

chance:  scxe  dc^cica:  ef.fressicns  -^.’hich  comfafed 
A  var:aei,e  tc  c,c  :n  if  statements  sc  t-ia.t  the 

VAnlABDE  'CR  *T’S  A3SCDVTE  VADUE  WAS  COMPARED 
TD  EPS  'C-OCOlCli.  THIS  WAS  DONE  SEt’ERAD  PEACES 
TO  CORRECT  RRECISION  PRCSDEMS  ON  THE  MAC. 


0 

C  CODE  DIMENSIONING  PARAMETERS 
C  N'JMSER  OF  SVRFACE  FANEDS  ADDOWED 
PARAJfETER  ,  NS  PD  IK  .  4000) 

C  NDJKEEF  OF  NEUMANN  PANELS  ALLOWED 
PARAMETER  iNNPDIM  =  50; 


C  development  HISTORY: 
C  DATE  INITIALS 
C  l/Tt.'JC  DLA 


NUMBER  OF  PATCHES  ALLOWED 

PARAMETER  iNPDIK  =  DC) 

C  NJKBER  OF  BASIC  POINTS  AILOWE:  FOP  FEITION  DEFINITION 
C  .ALSO  NUMBER  OF  SECTIONS  ALLOWED  FE?  P.ATCH 
C  ,ALSD  number  of  rows  OF  COLDW-'S  -  :  ALLOWED  ON  A  PATCH 
C  CAUTION:  DC  NOT  SET  THIS  P.AfA.)DE .r.,::  TO  .,“..AN  :C 

c 

PARAFtETEF  .NBPDDK  >  1001 

C  NUMBER  OF  WAKE  PAf.ELS  ALLOWEIO 
C 

PARAMETER  iNWPDDM  .  1500) 

C 

C  NUMBER  OF  WAKE  COLUMNS  ALLOWED  ON  EACH  WAKE 
C 

PARAMETER  (NWCDIM  .  50) 

c 

C  NUMBER  OF  WAKES  ALLOWED 
C 

PARAMETER  (NWDIM  .  50 i 

c 

C  NUMBER  CF  SCAN  VOLUMES  Or  EACH  TYPE  ALLCWEO 
C 

PARAMETER  (NSVTiIM  *  10) 
r 

C  NUMBER  OF  KjINTS  PER  OFF-BODY  STREAMLINE  .RLl  .'WED 
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FARAMETER  (KSLPZZW. 


1000; 


C  NUMBER  OF  GROUPS  OF  FAN^ELS  ON  WHICH  NCN2ERO  NORMAL  VELOCITY  IS  rRESC 


PARAMETER  (N^TLOrM  =  200  j 

C  NUMBER  OF  LINES  AT  A  TIME  TO  EE  REAI  IN  FOR  THE  INFLUENCE  COEF  -  MATH 
C  IN  THE  SOLVER  ROUTINE  lEUFFEPEO  INPUT  FROM  THE  SCRATCH  FILE' 

C  (CAUTION:  DO  NOT  SET  LARGER  THAN  CNE  uTCLESS  YOU  ARE  SURE  YOU  KA*.T 
C  ENOUGH  MEMORY  TO  HAI^DLE  BUFFERED  INPUT,  i 
C 

PARAMETER  { MAT3UF  =  1 ) 

C 

C  NUMBER  OF  WAKE  CORI4E?  POINTS  ALLOWED 
PARAMETER  (NWCFX:K=  (NWPDIM  1:*D; 


C  NUMBER  OF  SURFACE  COPJJER  POINTS  ALLOWED 
C 

PARAMETER  ( NSCPDIK*  (NSPDIK  1,*2) 

C 

C  NUMBER  OF  EDGE  PANELS  ALLOWED  ON  A  PATCH 


PARAMETER  {NEPDIM  *  NBPDIK  »  4) 

C 

ctrur.  number  of  viscous  data  points  to  be  read  in  3/26/53 


parameter  (nvpts  *  30) 
ctnm  RLXFAC  added  2/5/53 

COMMON/  CONST  /  FI.  EPS,  FOURPI,  CBAR, 

SSPAN,  SREF,  RMPX.  RMPY,  RMr2, 
-  KAXIT,  SOLRES, RLXFAC. 

*  RCORS.  RFF 

COMMON/  INTERNAL  /  NCZONE.NCOPAN. C2DUB. VREF 


ctnir.  added  to  iterate  a  solution  with  viscous  data  1/15/93 
ctnfr.  updated  to  include  section  dra^  data  2/22/92 
ctnm  updated  to  include  section  moment  and  last  pass  info  3/15/93 
ctnm.  updated  to  include  section  lift  data  3/23/93 

common/  iterate  /COLCLS (NPDIM.NBPDIKi .COLCDSfNPDIM, NBPDIK) , 

♦  COLCKS (NpriK, NBPDIM) . TCLS.  TCDS, terns, 

♦  dalpha (npdim.ntpdim) .cd2dpt;npdim,nbpdim) , 

♦  cir.Ddpt  (npdim.nbpdim)  .  last,  clDdpt  tnpdim.nbpdim) 


COMMON/ 

COMMON/ 

COMMON/ 

COMMON'/ 

COMMON/ 


COMMON/ 

COMMON/ 


COMMON/ 

COMMON/ 


COMMON/ 

COMMON/ 


COMMON/ 


COMMON/ 

COMMON/ 

COMMON/ 


TSTEP  /  NTSTPS,  ITSTE? 

NEWNAB  /  KPANiNSPDiM: ,KSIDE:KSPD:K) .NEWKABiKSrDiK) . 

news:d(nspdik! .kbchge 

PNABOR  /  NABOR{4,NS?DIM)  ,NABSID'.4,NSPDIM; 

NUK  /  NPAN,  NFATC- ,  .VWFA-V .  NWA/CE .  .NCOMR ,  NASSEM 

ONSET  /  ALPHA, ALDEG, YAW. YAWDEG, 

BETA, WIND ■ 3 , 3 ‘  . rHIDCT.  THEDOT, PSIDOT, 

COMPOP ,  S YM ,  G  PR ,  VINF .  VSO'JKD 
PATNAM  /  PNAMEU  .NPDIK) 

PATCHES  /  IDENT(N?D:K  ,  :?AN(NPr:K),  KLASS (NFDIKi , 
KOMPINPDIM.,  LPAKJNPDIK).  NC0L:NPD:M), 
NPANS(N?DIM,  .  NROWM.NPDIK) 

PRINT  /  LSTINP,  LSTOIT,  LSTGSO.  LSTCAE,  LSCVA/L 
LSTFRQ,  LSTC=>V  .LSTHLD,  LSTCET 
VELSET  /  NOCF(NVELDIMJ ,NOCLtN\^LDIK) ,NORF(NVELDIK)  . 
NORLd^TL^IMj  .NORPCHJN’VELDIM)  .NORSET. 
VNORKfNVELDIK)  .NV'SJETINfNPDIM) 

PUNCNTFL/  LENRUN 

SOLUTION  /  SIG{NS?DIKJ,  OUBfNSPDIK),  PDUE (NSPDIM) , 

wdubcnwpdik;.  ,  vxtNspiiK),  vy(kspd:m), 

VZINSPDIK),  V>:p  {NNPDIKt  .  \a'R  ( NNPDIM)  , 
V2R:NNPDIKi  ,DIAG  :NSP:.IK)  , 

RHSV(NSPDIM:  ,  VNORMAHNSPDIM;  .  CPDUB{NSCPDIM; 
SPANEL  /  XCiNSPDIM),  YClNSPDIM).  2C.NSPDIM,, 

pcs{3.3,nspd:k; .  area;kspdik; .  pff(NSpdim:, 
cpsx:nscpd:m) ,  cpsy (nscpdik) .  cps2(Nscpdik' . 

ICPS(NPDIM)  ,  KPTyp(N£PDIKi  ,  SMP'.NSPDIK)  , 

skq(nspd:m) 

SCRFILES  /  JSFIL(4) 

UNITS  -  UNITS 

UNSTDY  !  OKEGAi? , i: . ,  vfp:3,:c:,  DTSTEP 
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czr.r:.  VISCOUS  added  tor  iceratior*  wiz'r.  viscous  dar.a  1/19'?!: 
zzr,n.  d:nerision£  increased  to  nvpLs  j'2fc  '?r- 


C 

c 


COMMON/  V'ISCOUS 


/  rviscs,  lOENTV  (NPCIM.  ,  ZVPRKT.  N\'ZSC. 

NPVMAX(IO)  ,ALF20,:C  ,rAT:*ts;  ,  C120  ’  1 C  ,  nvpc  s  ;  , 
COIDC  1C  .  nvpcs ;  ,  CK2D{  1C .  nvpt.s)  .ALrZBC  :  IC  ;  , 
rhsincfNSroiK'; 


COMMON/  WAKNAM.'  WNAME  i  6 ,  NWOIM ^ 

COMMON/  WAKES  /  tCWCOL  (NWDIK:  .  tCWnOW.  NVI IM .  .  IWPANiNiCIM  , 

LwpANiNWoiM) ,  :dektw:nwdim; . 

KWPU(rrwcoiM.N'/OiK; .  kwfl:kwcdik,nwdiM'  , 

PHIUfNWCOIK.NWDIK: ,  PHIL! NWCDIM. NWOIM ' , 
:FLEXW.;NWDIK; 

COMMON/  WPANEL  /  XCWiNWPDlM.'  ,  YCWiKWPPIM),  2CW(NWPDIK), 
PCSW(3, j.NWPOIK? ,  AREAW(NWP0:KJ . 

PFFW{NWPLIK) . 

CPWXINWCPDIMJ  ,  CPWY  .'N'WCPDIK)  .  CPWC  INWCPOIMI  . 
ICPWCNWDIM) 

dimeneior.  dubic  (nspdirr.,matbuf  i 
LOGICAL  SYM^GPR 


CKARACTEF.*15  UNITS 
CHARACTER* 4  PNAME 
CHARACTER *4  WNAKE 
CALL  OPENF 


C  Rewind  all  scratch  files  from  17  to  20  and  assign  unit  nuiTibers 
C 

ctmr.  added  1/29/93  for  wakinfl  routine,  turns  cff  viscous  output 
ivpmtsO 

DO  1  L=:7,2C 
RrwiND  L 

jsF:L:L-a6)  .  l 

1  CONTINUE 

c 

C  READ  IN  BASIC  DATA  AND  GEOMETRY  INPUT 
C 

CALL  J03DATA 
CALL  SURFGEN 

:f:lenruk.sq.i)go  tc  5o 


C  FORK  PANEL  PARAMETERS  AND  PANEL  NEIGHBORS 
C 

CALL  SURPAN 
CALL  NABORS 

;f'Lenpun.e2.:?go  tc  so 

c 

C  FORM  SURFACE  PANEL  INFLUENCE  COEFFICIENTS 
C 

:f:LENRUN.NE.2;CALL  surfinf 


C  READ  IN  WAKE  INPUT  INFORMATION  AND  FORM  WAFsE  STARTING  PArAJGTERS 
C 

CALL  WAKINIT 
:f;lenrun.eq.3!Then 
CALL  WAKPAN 
GO  TC  SO 
END  IF 
r 

C  START  THE  TIME  STEP  LOOP 


DO  10  ITSTEP*1,NTSTPS 
WRITE t 16, 61) ITS TEP 
TSTIME  -  ITSTEP  *  DTSTEP 
C 

C  SET  PRINT  CONTROL  HOLD  FOR  THIS  TIME  STEP 

C 

: F : I TSTEP . EQ . 1 . AND . LSTFFQ .  NX . 0  J  THEN 
LSTHLD  *  0 
GO  TO  30 

IF' ITSTEP .EQ.NTSTP?) THEN 
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LSTHLL  =  C 

3C  rc  >0 


:c  CONTINUE 

I  TEST  a  I  TEST  -  LSTFP2 
IFdTEST.GT.OGC  TO  20 
IF: :TEST.EQ.0)TKEN 
LSTHUD  =  C 

LSTHUD  =  1 
ENOIF 

2C  CONTINUE 

CAUL  ?ATH(TSTIMEi 
CALL  WAKPAN 


C  FORK  THE  RIGHT  SIDE  VECTOR 


CALL  WAKINFL 
c 

C  SOLVE  THE  MATRIX  EQUATION  FOR  THE  UNKNOWN  DOUBLET  STRENGTHS 
C 

CALL  SOLVER 

C  DISTRIBUTE  THE  PROPER  DOUBLET  STRENGTHS  ON  THE  WAKE  PANELS 
C 

CALL  WAKDUB 
C 

C  COMPUTE  T^E  SURFACE  VELOCITIES,  PRESSURE  COEFFICIENTS,  AND  M.iiCK  t^JMBER 
C  AT  THE  PANEL  CENTROIDS  AND  CORNER  POINTS,  AND  FORCE  AND  MOMENT  CDEFFICI 
C 

CALL  NEUMANN 
CALL  AERODAT 

ctnrr.  if  a  viscous  case,  do  che  following 

if  (IViscs.eq.l’ then 
ivpmcsl 
call  viscdata 
ivprnt*0 
endif 

CALL  CORNER?? 


C  STEP  THE  WAKE 
C 

IFiITSTEP.NE.KTSTPS;  THEN 
CALL  WAKSTEP 
END  IF 

:C  CONTINUE 

>» 

C  COMPUTE  SURFACE  STREAMLINES  AND  BOUTCI-APY  LAVER  CALCULATIONS  IF  REQIJESTE 
C 

C  CALL  STLINE 

C  PERFORM  OFFBODY  VELOCITY  SCAN  AND  STREAMLINE  CALCULATIONS 

CALL  VSCAN 
CALL  STRMLIN 

50  CONTINUE 

ctniTi  close  added  to  close  all  units  (gets  rid  of  scratch  files)  1/8/S3 

do  SI  iunit=12,20 
close  (iunit) 

51  continue 
STOP 

61  F0RKAT(//1H1.  ’TIME  STEPM4J 
END 


ENTS 
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Appendix  C. 

Subroutine  AERODAT.f 


’DECK  AERODAT 

SUBROUTINE  AERCDAT 


C 


C 

c 

c 

c 

c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

r 

C 

C 

c 


c 

c 

c 

c 

c 

c 

c 

c 


PURPOSE:  evaluates  SURFACE  VELOCITY  VECTOR  AND  PRESSURE  COEFFICIENT 

AT  EACH  CONCTiOL  POINT  AND  IKTECR.ATES  PRESSURE  COEFFICIENTS 
TC  GET  FORCES  AND  MOMENTS 

CALLED  BY:  PMARC 

EXTERNAL  REFERENCES:  SCHEME 

ENVIRONMENT:  VAJi/VMS  FORTRAN, CRAY  CFT77  FORTRAN. 

MACINTOSH  DCM  MACTRAK  PLUS  I  - C 

AUTHOR:  Dale  Ashby, 

MS  247-2,  NASA  Ames  Research  Center,  Moffett  Field,  CA.  S40I.5 


DEVELOPMENT  HISTORY: 

DATE  INITIALS  DESCRIPTION 


CODE  DIMENSIONING  PARAMETERS 
NUMBER  OF  SURFACE  PANELS  ALLOWED 
PARAMETER  vNSPDIM  *  4000) 

NUMBER  OF  NEUMANN  PANELS  ALLOWED 
PARAMETER  (NNPDIM  *  50) 

ICUMBER  OF  PATCHES  ALLOWED 
PARAMETEP.  JNPDIK  *  20) 

NUMBER  OF  BASIC  POINTS  ALLOWED  FOR  SECTION  DEFINITION 
(ALSO  NUMBER  OF  SECTIONS  ALLOWED  PER  PATCH) 

(ALSO  NUMBER  OF  ROWS  OR  COLUMNS  1  ALLOWED  ON  A  PATCH) 

CAUTION:  DC  NOT  SET  THIS  PARAMETER  TO  LESS  THAN  £C! 

PA.RAMETER  (NBPDIK  =  100) 

NTKBER  OF  WAf3  PANELS  ALLOWED 

PARAMETER  (NWPDIK  =  ISOCJ 

NUMBER  OF  WAKE  COLUKJ^S  ALLOWED  ON  E^.CH  WAi3 

PARAMETER  (NWCDIM  =  50) 

NUMBER  OF  WAKES  ALLOWED 

PARAMETER  (NWDIK  =  50) 

NUMBER  OF  SCAN  VOLUMES  OF  EACH  TYPE  ALLOWED 

PARAMETER  (NSVDIK  -  10} 

NUMBER  OF  POINTS  PER  OFF-BODY  STREAMLINE  ALLOWED 
PARAMETER  (NSLPDIK  =  1000) 

NUMBER  OF  GROUPS  OF  FAN’ELS  ON  WHICH  NONIEFO  NORMAL  VELOCITY  IS  PRESCRIBED 
PARAMETEP  (NVELDIM  =  20D> 
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C  NUMSER  OF  LINES  AT  A  TIME  TO  EE  REAL  IN  FOR  THE  INELLJENCE  COEF.  K^vTFIX 
C  IN  THE  SOLVER  BOUTIME  (EUFFEREO  IKFTT  FROM  THE  SCRATCH  FILE) 

C  (CAUTION:  DO  NOT  SET  lARGER  THAN  ONE  ’JI^LESS  YOU  ARE  SURE  YOU  HAVE 
C  ENOUGH  MEMORY  TO  HANDLE  BUFFERED  INFUT. ; 

C 

PARAMETER  (MATBUF  =  1) 

C 

C  NUMBER  OF  WAKE  CORNER  POINTS  ALLOWED 
C 

PARAMETER  (NWCPDIK*  {IWPDIK  -  1'. ’C; 

V 

C  NUMBER  OF  SURFACE  CORNER  POINTS  ALLOVJED 

PARAMETER  (NSCPDIM=  (NSPDIM  1,»2) 

C 

C  NUMBER  OF  EDGE  PANELS  ALLOWED  ON  A  PATCH 
C 

PARAMETER  (NEPDIM  =  NBPDIK  *  4) 

C 

ctnin  number  of  viscous  data  points  to  be  read  in  5/26/93 
c 

parameter  (nvpts  *  30) 

ctnm  subscripts  not  needed  due  to  streamlining  of  code  2/25/53 
c  DIMENSION  PATFX(NFDIM) , PATTY  (KPDIM) ,PATF2(NPD1M) . 
c  PATWX(NPDIM)  ,PATMY(NPDIM)  ,  PATM2<NPD:M)  , 


dimension 

SUMA(NPDIM)  ,  PCLW{NPDIH)  ,  PCDW{NPDIM)  ,PCSW(NPDIM)  , 

*  PCMW(NPDIK)  ,  PCMYW(NPDIK)  ,  PCMRW  (NPDIK)  . 

PCLB{NPDIK)  ,  PCDB  (NPDIM)  ,  PCSB{NPDIM) ,  PCMB(NPDIK) , 

+  PCMYB; NPDIM) , PCMRB (NPDIM) .PCLS (NPDIM) , PCOS (NPDIM) , 

PCSS  (NPDIM)  ,  PCMS  (NPDIM)  ,  PCMVS  (NPDIM)  ,  PCMRS  (NPDIM) , 

CCLWflO)  .CCDWdO)  .CCSWCO)  ,CCKW(1C)  .CCMYWdO) , 

+  CCMRWaO)  ,CCLB(10J  ,  CCDB  ( 10  i ,  CCSB  (lO?  , 

CCKB(IO)  .CCMYBdO)  ,CCMRB[10)  ,CCLS  ( 10) .  CCDS  (I  C)  , 

CCSS(IO)  ,CCMS:10),CCMYS‘,10),CCMRS(10}  , 

ACLW(IO)  ,ACDW;:0)  .ACSWCOI  .ACMWCO)  ,ACMYW(10)  , 

*  ACMRWdO;  .ACLSvlO;  ,AC03(:C}  ,ACS3(10} . 

*  ACMB(iO)  ,acmyb;:o)  .acmrbco;  ^aclsco)  ,acds(ic)  , 

*  ACSS(IO) ,ACMS;lC} ,ACMYS(:C) ,ACMRS(1C  ) , 

+  KLSS (NPDIM), 

+  N[4) ,NS(4} ,S>Di(4; ,syy(4) ,S2D(4) ,:cPSSUBt4) 

COMMON/  PATNAK  '  PNAM£{ 6 . NPDIM) 

COMMON/  PATCHES  /  IDENT ( NPDIM) ,  IPAN(NPD:K),  KLASS (NPDIM) , 

KOMP  (NPDIM).  LPAN  (NPDIM),  NCOL^NPDIM)  , 

-t-  NPANS  (NPDIM) ,  NR0W(NPD:K) 

COMMON/  SPANEL  /  XC(NSPDIK),  YC(NSPDIM),  ZC.’NSPDIM), 

*  PCS(3,5,NSPDIM) ,  AREA(NSPD:K) ,  PFF(NSPDIM), 

^  CPSX(NSCPDIK} ,  CPSY (NSCPDIM) ,  CPS2(NSCPDIK) , 

+  ICPSiNrLIK, ,  KPTyp.NSPlIK) . SMP (KSPDIM; , 

*  SMQi'NSFIIK; 

COMMON/  PRINT  /  LSTINP,  LSTOUT,  LSTGEC.  LSTNAB,  LSTWAK. 

*  LSTFRQ,  LSTCPV  .LSTHLD,  LSTCET 

COMMON/  SOLUTION  /  SIGiNSPDIM),  DUB(N£PDIKi,  PD'OB(NSPDIM)  , 

*  WDUB(NWPD:KJ  ,  VX.'NSPDIK).  VYtNSPDIM;. 

*  VZiNSPDIM),  VXR(NNPD:M),  Vl'R(NNPDIM), 

VZR  (NNPDIM)  ,DIAG'NiPDIKl  , 

*  RKSV{NS?DIM; ,  VNDRMALJNSPDIM) ,  CPDUB{NSCPD: 


COMMON/  PRINT 


:pdub{Nscpd:mi 


RLXFAC  added  2/5/53 
COMMON/  CONST 


EPS,  FOURPI,  CBAR, 
SREF,  RKPX,  RMPy, 
SOLRES, RLXFAC, 


RCORS,  RFF 


COMMON/  INTERNAL/  NCZONE. 


CZDUB,  V?EF 


Ctnm  added  to  iterate  a  solution  with  viscous  data  1/15/53 
ctnm  updated  to  include  section  drag  data  2/22/93 
ctnir.  updated  to  include  section  moment  and  last  pass  info  3/15/53 
ctnm  updated  to  include  section  lift  data  3/23/93 

common/  iterate  /C0LCLS(NPD:M, NBPDIK) ,COLCDS;NPDIM.NBPDIM) , 

*  COLCKS (NPDIM, NBPDIK) . TCLS, TCDS , terns , 

-*•  daipha  (npdim,nbpdim}  ,cd2dpt(npdim,nbpdiir; , 

♦  cir.2dpt  (npdim,nbpdim)  .last,  cl2dpt  (npdim, nbpdim) 


COMMON/  PNABOR  /  rUiBOR » 4 , NSPDIK - , NABSID t 4 . NSPDIM • 
COMMON/  SCRFILES  /  JPLCT,  JDUEIC, 
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jsoRic,  ly.: 

COMMON/  ONSET  /  ALPHA,  AI.2'EC.  iAW, \AWCEO, 

EETA.WIMO  -',3-  .Fr;:OCT,TKEDCT,P£I007, 
-  COMPO? , Syx . GPn . VINT . VSGUND 

COMMON/  UNITS  /  UNITS 

cirx  VISCOUS  added  ior  iCeraticn  viir.  viscous  daca  1/19/93 

ccr*n  din^er.sior,s  iricreased  tc  3G  3'3£/5j 

c’r*::.  NCTE:  ir.aximurr.  of  1C  viscous  data  sets  car.  be  read  in 


COMMON/  VISCOUS 


/  IVISCS. IDENTw  (NFDIK; . IVPRNT.NVISC, 
NPVMAX 1 1 C '  ,  ALPCD  i  1 C  ,  nx'pts  1  ,  CL2D  {1C,  nvp: 
CD2D»10,nvpt5, ,CM2D;10,nvpcs} ,kuPZhO\is 
rhsinc{NS?DIK^ 


COMMON/  MUM  /  NPAN, NPATCH ,NW?AN, NWA>;E. NCOMP,NASSEK 

COMMON/  TSTEP  /  NTSTPS,  ITSTEF 

COMMON/  UNSTDY  /  0MEGA(3,1G).  VFRij.iO),  DTSTEP 

LOGICAL  SYK.GPR 

CHARACTEF*1£  UNITS 

CHARACTER  *4  PNAME 

ctnir.  dec. are  a  viscous  wind  transform  matrix  2/11/95 
real  vwind(3,35 
C 

C  INITIALIZE  VARIABLES 
C 

ctnn.  qscale  is  a  scale  factor  tc  scale  the  d'/namic  pressure  on 
c  this  could  be  made  part  of  the  input  for  each  patch 

c  this  routine  currently  assumes  that  the  tail  is  patch  12 


qscale  <0.9 


KMP  s  1 
SUM  =0.0 
TCLW  =0.0 
TCDW  =0.0 
TCSW  s  0.0 
TCMW  *  0.0 


TCKYW 

S 

0.0 

TCMRW 

S 

C  .0 

CO'^FX 

s 

C  .0 

COIFY 

= 

0.0 

COLF2 

s 

0.0 

COLKX 

8 

0.0 

C02KY 

0.0 

CC2KZ 

= 

0.0 

patix 

= 

0. 

patfy 

S 

0. 

patfz 

s 

0. 

pacnat 

= 

0. 

patmy 

= 

0. 

paptr.: 

= 

c. 

ctnrr.  sutscripts  dropped  due  to  viscous  corrections  and 
c  stream.Iining  of  code  2/3S/53 

DO  1  I<1,NPATCH 
c  PATFXC)  -  O.c 

c  PATTY !I)  *  0.0 

C  PATTZiI)  *  0.0 

c  PATKXd)  =0.0 

c  PATMYdJ  =0.0 

c  PATKZ(I)  *  0.0 

SUMA;I)  =0.0 

ctnir.  initializations  added  due  to  code  change  2/23.'93 

pclw{i)  *  0. 
pcdw(i)  =  0. 
pcsw(i)  =  0. 
pcmw(i)  =  0. 
pC7nyw{i)  s  0. 
pcmrv  ( i )  =  0 . 
pclb;i)  =  0. 
pcdt : i )  =  0 . 


the  tail 
4/22/93 
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pcsb(i)  =  C. 

pCTT.b  ;  i  )  =  C  . 

1  CONTINUE 

DC  2  NK*:,NCOMP 
CCLK.'tlK,  =  C.O 

ccdwinj:;  =  c.c 

CC?Wu*JK)  s  0  .  C 
ccMw;^:K)  = 

CCMYW(NK)  =  C.O 
CCMKWiNK)  =  C.C 

2  CONTINUE 

DC  :  na=i.nac=:ek 

ACDW;NA)  =  0.0 
ACDW(NA)  =0.0 
ACSKiNA)  =0.0 
ACMW(NA)  =  C.O 
ACK^'W(NA)  =  C.C 
ACKRWfNA]  =  O.C 

3  CONTINUE 

crnir.  added  to  initialize  variables  used  with  viscous  data  1/18/53 

dc '4  np=l,npatch 
do  5  nc=l ^ncol (np) 

COLCLS(NP.NC:=C. 

COLCDS{N?,NC) =0 . 

COLCKS(NP,NCj=0. 

5  continue 

4  continue 

ctnx  initialize  the  viscous  wind  axis  trar.sforrr.  matrix  2/11/52 

dc  6  nxsl,2 
do  7  ny»l,2 
wind  (nx,  ny  )  »C . 

7  continue 

6  continue 

CY  =  COS (YAW) 

SY  *  SIN (YAW) 

CA-  =  COS (ALPHA) 

SAL  =  SIN (ALPHA) 

K»C 

K34=0 

:r  f  VPEF .  LT .  EPS )  THEN 
PVINF  =  VINE 
ELSE 

PVINF  =  VREF 
ENDIF 
C 

C  SET  SYMMETRY  CONDITIONS 
C 

:F:;£YM)TKEr; 

RSYM  =0.5 

rsym:  =  c.c 

ELSE 

RSYM  =1.0 
RSYKl  =  l.C 
ENDIF 
C 

C  FOR  INTERNAL  FLOWS,  COMPUTE  THE  DOUBLET  STRENGTH  ON  PANEL  NC2PAN  AS  THE 
C  AVERAGE  OF  THE  DOUBLET  STRENGTHS  ON  THE  NEIGHBORING  PANELS. 

C 

I ? ; NCZONE . GT . 0 )  TWSN 
N1  *  NABOR(l,NC2PAN) 

N2  =  NABOR(2,NC2PAN) 

N3  =  NABCR(3,NC2PAN) 

N4  =  NAB.0P(4,NC2PAN) 

DENOM  =  4.C 
:f(N1.le.0;Then 
DUBNl  *  0.0 
DENOM  =  DENOM  -  1.0 
ELSE 

DUBNl  =  dub;ni) 
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EN’Dir 

;f.n:  c:  thh^ 

DUENl  =  C . C 
DENOM  =  DET^OM  -  1.0 
ELSE 

r^UHic  =  uue:n*i: 

END  IF 

:F{1:3  .lE.OTHEtJ 
DUBN3  =  O.C 
DENOK  =  DENOM  -  1.0 
ELSE 

DUBNj  =  DUB\N3i 
en*d:f 

IF{N4 .LE. C:  THEN 
DUBN4  =  C . 0 
DENOK  =  DENOK  -  1 . 0 
ELSE 

DUBN4  =  DUB[N4; 

END  IF 

IF ( DENOK . LT . EPS ) THEN 

due^ndzpan;  =  cddub 

ELSE 

DUE(NC2PAN)  =  (DUBNl  DUBK2  -  DUBK3  -  DL^N4) /DENOK 
ENDIF 
SNDIF 

C  COKPUTE  VELOCITIES  AND  C?  AT  SURFACE  CONTROL  POINTS 
C 

KaO 

if ;iafit.€q.l)th€n 

wrice(;3,»)  ’nccl  xle  xdisr  zle  z^isz 
**•  cl2dpt  crr.Idpt* 

writ€{13,*}  • _ _ _ 


endif 

DC  :0  NF*I,NPATCK 
ID.IABS (IDENT<NP;  ) 

KLSS(N?)«IABS(KLASS{N?:  ) 

IF . LSTHLD .EQ . 0  j  THEN 
WRITECe,  €$9) 

WRITE (16. 600) NP, (?NAME»I,NP) . I*i. i: 

ENDIF 

DO  20  NC*l,NCOL(NP) 

DSMAX  =  O.C 

IF  ^  LSTHLD .  EQ .  0  ,■  THEN 

WRI TE ( 1 6 , €  0 1 ) NC . UNI TS , P VINF , UNI TS 
WRITEtie, 6C2; 

C  COMPUTE  CIRCULATION  FOR  EACH  COLUMN  ON  WIND  TYPE  PATCHES 
IFfID.EQ.i: THEN 

KTi.  =  IPAN(NP,  -  (NC  -  I)  »  NROW(N?/ 

KTO  =  KTL  *  NROWUNP;  -  1 
CIRC  =  (DUEiKTL)  -  DUBlKTU})  *  FCURPI 
ENDIF 

DO  30  NRsl,N?OW(NP; 

K=K-^1 

:F(ID.EQ.3)K34=K34*: 

C 

C  SURFACE  DOUBLET  DIFFERENTIATION  FOR  COMPUTING  irELOCITIES 
C 

DELP  -  0.0 
DELQ  s  O.C 
DO  35  I«l,2 
II  *  1+2 
IFLAG  =  0 
SS  s  0.0 
NK  =  K 
C 

C  FIND  NEIGHBORS  FOR  PANEL  NK 
r 

N  » I  )  =  NAEiO?  I ,  I^K ' 

N  f : I ;  =  NABOP ■ 1 1 ,  NT  ) 

NSU)  -  NABSID(I.NK) 

NS(II)  «  NABSID(II.NK) 


ara&rat 
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IF.'f:?;:,  .GT.C.AN'D.KS',::)  .GT-:-ioJT-‘  j-i 
ZrlKB^Z)  .GT.C  .OR.NS  'll;  -GT.  0, 

c 

C  IF  i;EIGHBOB  on  side  :  or  1  DOESK‘7  exist,  fiko  iieigheor  of  neighbor 
C  CK  S I DE  J  OR  4  • 

c 

:  F ;  Hs  ; : ) .  LE .  G ,  thei: 
n:I}  =  Ni: 
r:K  =  K;i:; 

N  ^  1 1 }  =  N’ABOR ; : : .  f-iK ) 

NSC)  =  kaesioc.nj:) 

NS  ( 1 1 ;  s  KASS I  O'  ,11,  InK  / 

I FLAG  =  II 
IF(NS(II) .LE.0;TH£N 
iFiAG  =  ::-4 
ENDIF 

C  IF  NEIGHBOR  ON  SIDE  3  OP  4  DOESN'T  EXIST,  FIND  NEIGHBOR  OF  NEIGHBOR 
C  CN  SIDE  1  OR  2 
C 

ELSEIFINS  CD  .LE.OJTHEN 
NCI)  s  NK 
NK  =  N(D 

N(I)  *  naborc.nt; 

NSdl)  =  NABSID  :II,NK) 

NSC)  =  NABSIDC,NKJ 
IFIAG  *  I 

IFfNSC)  .DE.0:THEN 
IFIAG  =  I-r4 
ENDIF 
ENDIF 
ELSE 
C 

C  IF  NEIGHBORS  DO  NOT  EXIST  ON  EITHER  SIDE  OF  PANEL  NK.  WRITE  MESSAGE 
C  TO  OUTPUT  FILE  AND  30  TO  NEXT  PANEL 
C 

wRi7E(:6,^60]K.:,:: 
ori-p  *  0.0 
DELQ  *  0.0 
GO  TO  35 
ENDIF 

C  NOW  THAT  NEIGHBORS  ARE  IDENTIFIED,  DO  THE  DIFFERENTI.ATION 
C 

36  IFC  .EQ.l  }THEN 
SK  s  SMQ(NK) 

ELSE 

SK  =  SMP(NK) 

ENDIF 

IFCFLAG.LT.f  )  THEN 

IF  NS  I )  .  EO  .  :  .  Or. .  NS  C* )  .  EQ  .  3  )  THEN 
SI  =  SMQ(N';i)  - 
ELSE 

SI  =  SMP(NC;  ; 

ENDIF 

IF  (NS  Cl!  .EO.l.OR.NSCI)  .EQ.3iTHEN 
S3  =  SMOtNlIl; : 

ELSE 

S3  *  SMP(NC:  1 ) 

ENDIF 

SA  =  - (Sl+SK) 

SB  =  ,£3-»SK) 

DB  =  {DUB(NCI)  )-DUB{NK>  ) /SB 
DA*  (DUB(NC:  ;-DUB(NK)  )/SA 
IF( IFIAG. EC. I; THEN 
SS  =  SB 

ELSEI F  ( IFIAG .  EQ  C I )  THEN 
SS  =  SA 
ENDIF 

IF  (I.  EQ.l)  THEN 

DELC  *  {DA*SB-DE*SA1  /  (SB-SA;-^:*  ;DE'DA)  /  (SB-SA: ’SS 
ELSE 

DELP  «  •(  (DA*SE-r-B»SA) S3- SA;*2*  (DE-DA)  /  (SB-SA;  *SS) 

ENDIF 

ENDIF 
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C  :F  only  CKE  NEIGHBCP  to  PX!vE1.  NT  EXISTS.  THEN*  JUST  TSz.  SIMPLE 
r  IlrrERETJCING  BETWEEN;  PATCELS  TI  GET  THE  TEf  lVATIVE 

IF >IFLAG.E0. ,1-4;  : THEN 

I F  ( NS  (II).  Ey .  I .  Or.  .  NS  •  1 1  ,  .  EL  -  ■  T.-.EN 

£2  =  SMQiN'II' ' 

ELSE 

£j  =  SKPis;:::. 

ENDIF 

SE  =  !£3-.SK; 
if;: -EQ. I) THEN 

DELL'  =  (DUE(N  11 ;  ;-DUB(NK;  .  ^£E 
ELSE 

DELf  =  (DUB ;N  V II /  , -DUE iNKj .  , SE 
ENDIr 
ENDIF 

if;iflag.eq. (II-4) ;then 

IF  ■:  N£  :  I ;  .  ED  -  0  .  OR  .  NS  ^  I )  .  EQ .  4  )  THEN 
SI  =  SMQ(N(I; ; 

ELSE 

SI  =  SMP(N{i; ) 

ENDIF 

SA  =  (Sl-^SK) 

IF  i  I .  EQ .  1 )  THEN 

DELQ  s  (DUB(N;:})-DUB(NK) )/SA 
ELSE 

DELP  =  (DUB(N!I) ) -DUBiNK) ) /SA 
ENDIF 
ENDIF 

25  CONTINUE 

CALL  SCHEME iNROW (NP) ,NCOL(NP; ,I?AN(NPj .K. :CPS{NP; . 

^  ICPSSUB) 

DC  31  I«1.4 

SXXII)  «  CPSXCCPSSUBC) ) 

SY'YC)  .  CPSY  (ICPSSUEd)  ) 

SZZiZ}  =  CPSZdCPSSUBd)  ) 

31  CONTINUE 

EX3  =  sx>:(3)  -  xc;k) 

EX2  *  SX>:(2J  -  XCIFO 

Ey3  *:  SyY'[3)  -  YC'K) 

EY2  ^  S\y{2)  -  YC.:Ki 

EZ3  *  SZZ(3}  “  2CiK) 

E22  *  SI2(2)  -  ZC.K) 

XE3  «  EX3  *  PCS|1,:,K)  +  E^’3  *  PCStl.I.K;  •  E23  »  ?CS;3,1.K- 

XE2  =  EX2  •  PCSil.l.K)  +  EYl  *  PCSi2.:,K)  -  EZ2  •  PC£(3,1.K, 

YE3  =  £X3  *  PCS(1.2,K)  *  EV3  »  PCSil.l.K)  *  ED3  »  ?0£;3,2,K; 

y£2  =  EX2  »  PCS;:,2,K)  -  EYl  »  ?C£:2,2.K;  -  EDI  *  PCSd-. 1,K 

TX  =  >X3  ♦  XE2 
TV  =  yE3  *  YE2 
C 

C  VELOCITY  COMPUTED  IN  LOCAL  PANEL  COOPIINATE  SYSTEM 
C 

VL  s  (TY  *  DELQ  -  SQPT{TX*TX  TY’TY)  *  DEL?)  *  FOUR  PI 'TX 
VM  =  -DELQ  *  FOUR PI 
VN  =  SIGiK)  »  FOURPI 
DU3R  =  DUB(K:  •  FOUP.FT 
C 

C  TRANSFORM  THE  VELOCITY  VECTOR  TO  GLOBAL  COORDINATE  SYSTEM 

VPX=!VL  *  PC£(1.:,K)  -*■  VK  •  PC£(1,2,K)  -  VN  •  PCS(l,3,Ki) 
VPY=(VL  »  PCS(2,1,K)  *  VM  *  PC£(2,2,K^  *  VN  *  PCS(2.3.K)) 
VPZs:(VL  *  PCS(3,:.K)  -  VM  *  PC£(3,2,K)  *  VK  •  PC£(3,3,K.') 
IF(ID.EQ.3)THEN 

C  COMPUTE  SURFACE  VELOCITIES  FOR  NFJKANN  PATCH 
C 

C  UPPER  SURFACE  VELOCITIES 
C 

VMNsVNORMAL  (K)  -  (VXP.  (K54  )  'PCS  (1,3,  K)  -VYP  (K34  )  •  PCS  !  2 , 3  ,  K) 

1  *VZRtK34)-PCSi3.3,K}) 

VX[K)  s  VXR(K34)  ♦  VPX/2.0  >  JKS  *  PCSil.S.K) 

VY;K)  =  VYP(K341  +  VpY/2.0  VKN  *  PC£;2.3.K) 

V2(K)  =  V2R(K34:  VPZ/2.0  ♦  VMN  -  PC£(3,3.K1 

C  LOWER  SURFACE  VELOCITIES 
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v>u-  =  v>:;k,  -  v?x 

”.*VL  =  VY.K'  -  V?V 

vzL  =  v2;k,  -  v?z 

VKAGL  =  S0?T;V>:L*VXL  *  vri-VZL 

r'SZE  K:n*EK.^TIC  ■'/'EZCCITV  vector 


v£>:  =.  vFP-’::,KK?i  -  omeoa;i.km?; ’ZC,K 
V£Y  =  VFR(2,KMP}  OMEGAO.KMP;  *XCiK 
V£Z  =  VrF::-.KM?:  OMEGA.  1 .  *  VC  .K 


-  OMEGA . j , KMr , *VC (K 

-  OMEGA ; 1, KMP: ’2C(K) 

-  C^!EGA  ;  1 .  KMP  ’■:-:C(K. 


C  ACC  r^Cl^EMA.TI C  ^<’EIJCCI'^V  VECTOR 
C 

v>::k)  =  vp>:  -  vsx 

VY!K)  =  VPV  -  VSY 

V2:}:)  =  vpz  -  vsz 

ENDC? 

C  COMPUTE  PRESSURE  COEFFICIENT  AND  LOCAl  MACK  NUMBER 

VXD  =  V'XIK) 

\^D  =  \^iK) 

VZD  =  V2;K) 

WAG  -  SQRT(VXD**2  *  WD**2  *  V2C**2: 

CP  =  ;  -  (VMAG/RVINF)  »»2  (C'FOUnrl/ iPVINF**!  •  DTSTEP)  )  * 

*  (DUB(K)  -  FDU3;K)) 

PMACH  =  VMAG/VSOUND 
C 

C  COMPUTE  CP  AND  MACH  NUMBER  ON  LOWER  SURFACE  OF  NEUMANN  PATCHES 
C 

IF  (:D.EQ.3)Tr:SN 

CPL  *  1  -  (VMAGL/RVINF)  **2  «*•  (2»FGURFI/ {RVINF»*2  •  DTSTEP})  » 

(DUB(K)  -  ?dub;k:) 

PMACHL  *  VKAGL /VSOUND 
SiOIF 
C 

C  PERFORM  PRANDTL-GLAUERT  COMPRESSIBILITY  CORRECTION 

Q 

IFiCOMPOP.EO.DTHEN 
CP  =  CP/EETA 
CPL  =  CPL/SETA 
ENDIF 
C 

C  COMPUTE  THE  FORCES  AND  MOMENTS  ON  EACH  PANEL 
C 

PFTCT  =  -CP  *  AP£A(K) 

PFTCT  =  -(CP  -  CPL)  *  APEA(K) 


end: 

p 

PFX 

s 

PFTCT 

*  pcs.i,:*,K) 

FFY 

s 

PFTOT 

•  PCS;2,3,K) 

PFZ 

B 

PFTOT 

»  PCS  1 j , 3 ,K) 

PK>: 

S 

PFZ  • 

(yC(K}  -  RMPY) 

-  PFY  • 

■ZCK, 

-  RMFZ 

PKY 

S 

PFX  * 

(ZC(K)  -  RKP2) 

-  PFZ  ’ 

XCE; 

-  PMPX 

?MZ 

B 

ppy  * 

:XC(K)  -  RMPXi 

-  PFX  - 

•VC.K} 

-  RMFY 

SUM  UP  FORCES  AND  MOMENTS  FOP.  EACH  COLUMN  OK  WING  TYPE  PATCHES 
IFlIDn^TfNP)  .EQ.DTHEN 


COLFX 

* 

COLFX 

4. 

PFX 

COLFY 

s 

COLFY 

4 

PFY 

COLFZ 

B 

COLFZ 

4 

PFZ 

COLMX 

B 

COLMX 

4 

PMX 

CCLMY 

S 

COLMY 

4 

PMY 

COLMZ 

B 

COLMZ 

4 

PM2 

SUM  s 

SUM  +  AREA(K) 

COMPUTE  THE  LEADING  AND  TRAILING  EDGE  COORDINATES  FCR  SAIH  COLUMN  OF 
PANELS  ON  TYPE  1  PATCHES .  ALSO  CCy.Pi'7'  THE  CHORD  LENGTH. 


:F(NP. EQ.DTHEN 

Y7E  =  Syy<D  -  SVY(4) 
Z7E  =  SZZ{I)  +  SZZiC) 
ENDIF 
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DX  =  £>:X;2‘  -  sroi'j)  -  XTI 

:y  =  svv;:,  ♦  syy;j-  -  vTc 

D£  =  DX*DX  --  DVDy  -  D2*r£ 

:F;D£.GT.DSMAx:THEr; 

DSMAX=D£ 

>:le  =  (S>:>:'2-,  -  sxxc^: ;  ‘i.c 

YLE  s:  ;SYy  :'i  +  £vy>j);  -2.c 
ZLE  =  !SZZ;2.  -  SZZi3  ;.'l.C 
ENDIF 

DX  s  XTE/2 . 0  -  XLE 
DV  =  V7E-'I'.C  -  VZE 
DZ  =  ZTE/2.C  -  ZLE 

CHORD  =  S0»<T;DX’DX  Dy»DV  ♦  DZ'DZ, 

YOVRSSPN  =  YLE/SSPAN 
ENDIF 
C 

C  SuK  UP  THE  FORCES  AND  MO^!E^’TS  FOR  EACH  cclLLTn  2/19, 'Si 

PATFX  *  PATFX  -  PFX 
PATFy  =  PATTY  PTi’ 

PATF2  =  PATFZ  PFZ 

PATKX  «  PATMX  *  PMX 

PATKY  =  PATKY  +  PMY 

PATM2  *  PATMZ  -  PM2 

SUMAINP)  =  SUMAINP)  +  AREA.'K) /SREF 

IFiLSTHLD.EO.OjTHEN 

WRITE  (16,  6C2)K,XC  ;K)  ,YCiK:  ,2C(Ki  ,  DUSR.VXD.VYD.VZD,  VM.AC,  CP,  PKACK 
IFilD.EO-ilTKEN 

WRITE  (16, 602 !  K,  XC  (K)  ,YC:E)  ,2C:K;  ,  DUER  ,  VXE,'v'YL,  V2L,1’KA32,  CPU, 

*  PMACHL 

ENDIF 
ENDIF 

30  CONTINUE 

c 

C  COMPUTE  SECTION  FORCE  AND  MOMENT  COEFFICIENTS  FOR  WING  TYPE  PATCHES 
C 

c«n7n  adosfi  to  allow  inoai  float  lor,  to  a^pAa  for  viscous  carcu.atioAS 
c  alp'na  is  inodifi®<3  for  tAa  fiaipna  calculated  in  rAs.f  I/ll/5o 


IF(IDENTiNP)  .EQ.KTHSN 
i f ( ivprnt .eg, 0 j  then 

COLCLW  =  COLFX  •  WIND (1,3;  -  COIFY  ' 

♦  COLFZ  •  WIND (3, 3) 

CODCDW  »  COLFX  •  WIND (1,1;  *  COIFY  ’ 
»  COLFZ  •  wind: 3,1) 

CCLCSW  I  COLFX  *  WIND (1,2)  »  COLFY 

♦  COLFZ  »  WIND! 3, 2) 

COLCMW  =  CCLMX  »  WIND'!, 2'  »  COLMY 

♦  COLMZ  •  WIND: 3, 2) 

COLCMYW  =  CCLMX  *  WIND (1,2)  -  COLKY 
+  COLMZ  •  WIND (3, 3) 

CCLCMRW  =  COLMX  »  WIND  ;  1 , 1  '■  -  COLMY' 

♦  COLMZ  ’  WIND: 3,1) 

SUM  »  SUM/ 2.0 
COLCLW  =  COLCLW/SUK 
COLCDW  =  COLCDW.'SUM 
CCLCSW  =  COLCSW/SUM 
COLCMW  =  COLCMW./ (SUM  ’  CEAR, 

COLCMYW  =  COLCMYW/ (SUM  •  SSPAN! 
CCLCMRW  =  COLCMRW/(SUM  •  SSPAN) 


WIND (2, 3;  - 
WIND (2,1)  * 
WIND (2, 2)  * 

\  2  2  )  •* 

'  WIND  '2,3)  •* 
'  WIND (2,1)  * 


else 

C 

C  SET  THE  CURRENT  ALPHA  ANGLE  AND  THE  CURRENT  UNIT  FREE- STREAM 
c  VELOCITY  VECTOR  it:odlfied  for  viscous  calculations  2/2S/S3 
C 

VALPHA  =  ALPHA  -  dalpha  (r.p,nc) 
veal =cos (VALPHA) 
vsalssin (VALPHA) 

VCA  »  CY  •  veal 
VSA  =  CY  •  vsal 
UX  =  VCA 
■■Si  =  SY 
UZ  =  VSA 

US  =  SQRT(UX*'2  ♦  Ul''*2) 
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C  Stz  UF  THE  V^ZKZ  k'/.ZS  TpA!:SrCFM;-.T: rr:  Mi.TFZM  icr  cr.ur.r. 

C  w:“r.  VISCOUS  ccrrecticns  l.'l*;'?-!* 

vwiKD ; : .  1  :■ 

WIND  !  1 ,  1 . 

WIND',:  ,  1  ; 

WIND  kZ  ,2 . 

WIND ( 2, 2 ^ 

WIND  il.2\ 

WIND  (1.3, 

WIND  1 1 , 3  / 
wind;  I.  3) 


C  COMPUTE  SECTION  FORCE  AND  KO^SNT  COEFFICIENTS  FOR  WING  T^'PE  PATCHES 
C  using  Che  viscous  wind  r.acrix 

COICLW  *  COLFX  *  W’IND;1.3)  -f  CCDF^'  •  VWINDii.S'  * 

COLF2  »  WIND  ; 3. 3  i 

COLCDW  s  COLFX  *  WINDil,!^  •  CCLFy  •  WIND  1 2, 1-  • 

-t-  COLF2  *  WIND  (3,1) 

COLCSW  *  COLFX  •  WIND  (1.2;  -  COIFY  •  WIND  (2, 2  j  - 
COLF2  *  WIND  (2 .2) 

COLCKW  *  CGLKX  •  WIND  1 1.2)  -  COLKY  •  WIND  ( 2. 2  j  - 
COLKZ  *  WIND  (3, 2) 

COLCMYW  =  COLKX  •  WIND  f  1,2)  *  CCLKY  -  WIND  1 2, 3. 

*  CCLMZ  •  WIND  {3. 3) 

COLCMRW  =  COLKX  *  WIND  (1.1)  -  CCLKY  •  WINDd.l: 

C0LM2  *  WIND{3.1) 

S'JK  »  SUK/2.C 
COLCLW  s  COLCLW/SUK 
COLCDW  «  COLCDW /SUK 
COLCSW  «  COLCSW /SUM 
COLCKW  «  COLCKW/: SUK  *  GEAR) 

COLCMYW  «  COLCMYW/ (SUM  *  SSFAN, 

COLCMRW  «  C0LCKRW/!SUM  »  SSPAK) 

C 

ENDIF 

C 

C  CON’v'EPT  SECTION  COEFFICIENTS  FROM  WIND  TO  STABILITY'  AllES 


ccnir.  subscripts  added  !or  viscous  data  calculations  1/15.'P3 
COLCLSINP.NC,  =  COLCLW 

ctnm  added  to  included  viscous  fiowfield  corrections  tc  section  drag  2  ■22/P3 
Li  ( ; vpmt .  ec .  0 )  then 

COLCDSfNF.NC)  «  COLCDW  •  CY  -  ICLCSW  »  SY 
else 

COLCDSiNF.NC)  =  COLCDW  »  CY  •  COLCSW  *  SY  *  cd2dpt inp, nc . 
endif 

COLCSS  =  COLCSW  *  CY  -*■  COLCDW  •  SY 

COLCKSiNP.NC)  =  COLCKW  »  CY  -  ;££rAK/CBAP)  *  COLCMRW  •  SY 
COLCMRS  *  COLCMRW  ♦  CY  *  (CBAP./SSPAK;  »  COLCKW  *  SY 
COLCKYS  COLCMYW 
C 

C  CONVERT  SECTION  COEFFICIENTS  FROM  WIND  TO  BODY  AXES 
C 

ctnm  added  for  viscous  iterations  2/22/53 
i f ( ivprnt . eq . 0 ) then 

COLCLB  *  COLCLW  »  CAL  *  CCLCDW  »  CV  '  SAL  +  COLCSW  -  SY 
*  SAL 

COLCDB  *  COLCDW  •  CY  •  CAL  -  COLCLW  •  SAL  -  COLCSW  *  SY 
»  •  CAL 

COLCSB  s  COLCSW  *  CY  +  COLCDW  *  SY 

COLCKB  =  CCLCMW  •  CY  -  (SSPAN/CBAR)  •  COLCMRW  •  SY 

COLCKRB  =  COLCMRW  •  CY  •  CAL  4-  (CBAR/SSPAN)  •  COLCKW  • 

SY  *  CAL  -  COLCKYW  *  SAL 

CGLCMYB  =  COLCKYW  •  CAL  ■*  CIICMPW  »  CY  *  SAL  -  '  CEAP /SSFAN)  * 

COLCKW  *  SY  *  SAL 

else 


-  u>: 

=  UY 

=  -UY'/US 
=  UX/US 

=  -UX  ’  U2/US 
=  -'JY  »  UL.'US 
s  US 
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€r.Gi  f 

cinrr.  reiriiialization  of  S*JK  r.ovea  tc  scale  1-c  zr&g  ir.zrez, 
c  --I’M  =  C 

C5Lr'>:  =  G 

rcm*  =  0 
rcLfZ  =  0 
ZCLMX  =  C 
COLM^’  *  0 
CDIMZ  *  C 

c  wk:t£  section  pafaketers  and  cdeftIcients  tc  c'jtpvt  f:ce 

r- 

ctnir  if  ;r.  a  viscous  iteratior.,  skip  these  writes 

if  ; ivprnt .eq. 1 j  goto  300 

WP.ITE  [16.  £'5) 

WRITE ! :£,£"£:  XDE, YLE, 2LE, CHOPX. CIRC, YOVRSSPN 
WRITE ( 16 , CC?; 

WRITE  ( 1  e ,  £ 75  ;  CCCCEW ,  COLCDW ,  CCLCSW ,  COCCMW ,  CCCCK^'W , 


ctnir.  subscript  addeS  for  iteration  with  viscous  data  1,1S'R. 

WRITE  (I  e,  €'’5.C0LCL£tKF,NC:  .  CC-ECDS  (Nr.NC;  .  C01.CSS, 
COLCMS  .NP.NC,  .CCXCK^-c.CCCCKRS 


'KRW 


WRITE<:6. £5C,  CC 

3GC  continue 


-CEE.  CODCrB.  CCECSE.  COLCKB.  CCECNl'E.  CC-ECXRE 


PUT  t-:e  patch  f: 

rCE  A.V:  KCKENT 

•^Ata  -n  Aii’. 

r 

c 

d:  cc  Np=i, 

NFATCK 

PCLWiNP) 

*  FATFX, NPi  • 

wiNr-;:,:-  -  patf 

C 

PATFZ(NP: 

•  WIND  1 1 , 3 ) 

C 

PCDWiNP) 

s  PATFXtNP}  * 

wiKta.i,  ,  pact 

40 


rATrC^Np.  ’  WINC  1,1. 
PCSW,NP;  =  FATFX 'NP,  WINT 
FATFI;NF.  *  WIND  X,  2; 
PCMW'NP)  =  PATKXiNP,  *  WIN!,- 
rATMZiNP;  ’  WIND, 3, 2; 

PCKYw  ( N?:  =  pATyj-:  f  nf 
PATK2(NP.  •  WIND.:-,  3 
PCKRWiNP}  =  FATKX:N? 
PATKCiNP;  -  WINL:2,i: 
?CLW{N?)  =  PCliWiNP'  /(SREFj 
PCDW(NP)  =  PCDW;NP: /'SREF) 
PCSW;NP)  =  PCSWiNP; /.SREF} 
PCMWlNP)  =  PCKW[NPi /JSKEF  » 
PCKyW{NPj  =  ?CMYW(N?) /.SREF 
PCKRW(NP}  =  PCKRWiNP) / (SREF 
CONTINUE 


1.2'  - 


w:nd::,ji 


WI 


PATFY 

FATKY 

PATKY' 

FATKl’ 


NF. 

NP, 

NP. 

NP, 

(NF- 

(NP; 


WI  NO  2  , 

WIND  1 2 , 

•  WINO.l 

*  WIK0.2 


CEAR 

»  c 

•  cc 


) 

PAN } 
PA?.} 


SUM  UP  COKPCN’ENT,  ASSEMBLY, AND 
COEFFICIENTS  IN  WIND  A>;ES 


total  force  and  MOMENT 


DC  50  NP=1,NPATCH 
CCLW(KOMP(NP; )  =  CCLW(K0KP(NP) , 


c:dw(kokp(np. ) 

CCSW.KOKPtNP;  ) 
CC^^A^  KGMP  (NP;  ) 


rW,r IMPtNP, 
KLASS(NP} 


=  CCDW'KOKPiNP)  ♦ 
=  CCSWiKOKPiNP) j  + 
=  CCKW  .  KOMPiNP)  )  ♦ 
=  ccKiv;  trcx:-  M  , , 
=  CCy.RWO'OKP.Np.  , 
=  ACLW(KLASS(NP, } 


PCLWiNP) 
PCDW.'NP) 
PCSW ( NP) 
PCKW.NF) 


PCyF> 

pcr,w . 


NF 

'-’Fj 
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:  AO.’  KLAESaOF:  =  ACDW  i  KLASS  :  NT .  -  rCrv-  N?  ; 

r  ArSW  '  ?'IjA£S  /  NP  j  ■  =  ACSW  ;  f'ljASS  I  Nj'  •  r^.-A 

r  A:w,!;-_A£S!Nr,  =  ACK-wif:L;.SF:NF".  -  f'-"-  ::r 

c  ACMiV.'KLAFS  (KP.  =  AFMYW I KIAS' I KF  -  PTMiVAT 

c  AFKRW  (KLA.SS  (.■.'F  =  ACKRW  ( K^-SF  ( KF  -  PFFiRn  .'A'.- 

c  TFLK  =  TC:,W  -  FCLWINP.  .'P.SVK 

c  T;3W  =  TCDK  -  FFDaiNF  /RFYK 

c:  T:SW  =  7CS*  -  PCSKiKP;  ’  rfyk: 

c  TCMV;  =  TCMW  FC^WI^'P:  ;?.£YK 

c  TCKiV  S  TCKYW  -  PYKYV.'  'KP,  ’  SSYKl 

c  TCMRW  =  TCMRW  PCKRW(N?)  ’  RSYK: 


c  C0t-1V£R7  PATCH  CDEr F:  CIU.’TS  FRDK  WIKT  TC  STAB:l:TV  AJ-IEF 
c 

c  PCLSIN?)  *  PCLWiN?) 

c  PCD£,'N?i  =  PCDWINPj  ♦  CY  -  PCSWINF  •  FY 

c  PCSS(HP)  -  PCSW(NP)  •  CY  »  PCDU’INP;  ’  FY 

c  PCMFJNP;  =  PCMWtNP;  »  CY  •>  :SSPAN/CSAR:'  •  FCKRif.' IN'?  ■  •  FY 

c  PCKRS'NF)  =  PCMRWINP)  '  CY  -  ICBAR/SSPAN:  •  PCM"*;  KP'  •  FY 

c  PCKYSINP)  =  PCKYWiNP) 

c 

c  CONVERT  PATCH  COEFFICIENTS  FROM  KIND  TO  BODY  AXES 


c 


c 

PCLBINP!  »  PCLW(NP) 

*  CAl  PCDW(NP;  •  CY  •  SAL  - 

PCSW{NP; 

’  SY 

c 

•  SAL 

c 

PCDBINP!  a  PCDWINP) 

*  CY  -  CAL  -  PCLW(K?;  -  SAL  - 

?CSw;N*P; 

*  Cy 

C  •  ’  CAL 

c  PCSEINFi  »  PCSKINP!  '  CY  -  PCDWINP)  *  FY 

r  PCKBINP)  «  PCMW(NP)  '  CY  -  iSSPAN/CEAR',  *  PCMR'K'.NP,  *  SY 

c  PCKRB.NP)  =  PCKBW(NP)  *  CY  •  CAL  »  iCBA.R/SSPAN;  *  PCMWiNPI  • 

c  -  SY  •  CAL  -  PCMWINP:  ’  SAL 

c  PCMYBfNP)  *  PCKWtNP)  •  CAL  PCMR'K-'NP/  •  CY  •  SAL  .  iCSAR/SSPAN) 
c  •  •  PCMKiNPj  •  SY  •  SAL 

c  50  CONTINUE 
C 
C 

C  PUT  THE  PATCH  FORCE  AND  MOMENT  DATA  IN  KIND  A-XIS  COEFFICIENT  FORK 
C 

if  ( ivprnt  .eq.  0  .cr.  iaeni  inp)  .ne.  I)  Lr.sr. 

PCLWW  *  PATFX  •  WINDiI.j)  *  PATFY  • 
wind;:,  3;  -  PATFC  •  WIND!:-,  3'. 

PCDKV  .  PATFX  *  WIND!  1,1)  •  PATFY  • 

»  WIND  (I,:;  ♦  PATFZ  •  WIND (3,1 

PCSWK  •  PATFX  •  KIND  1 1,2!  -  P.ATFY  • 

*  WIND (I, 2;  ♦  PATFZ  •  WIND! 3, 2, 

PCMWW  =  PATKX  •  WIND!  1,2!  »  PATKY  • 

*  KIND  (I,  I;  •  PATMZ  •  'WIND  1 3, 2, 

?CM1"WK  =  FATTD;  •  KIND  ■  1  ■  3 ;  *  PATKl'  '■ 

*  WIND  (1, 3.  -  PATMZ  ♦  w;nd!3,:- 
PCMJ'WW  =-  PATMX  »  WIND!  1,1)  -  PATKY  ■■ 

WIND  (2,1.  PATMZ  '  WIND (3,1, 

PC  LWW  *  PC  LWW  /  i  S  REF ! 

PCDWW  =  PCDWW/ ISREF! 

PCFWW  I  PCSWW/ :SRE?': 

PCMWW  =  PCMWW/ (SREF  ’  CBAR , 

PCKY'WW  =  PCMYWW/  (SREF  ’  SSPAN, 

PCMRWW  *  PCMPWW/ ISREF  »  SSPA.N. 


else 

PCLWW  «  PATFX  •  wind!  1,3)  ♦  PATFY  » 
wind (2, 3!  ♦  PATFZ  *  wind  (3, 3  ( 
PCDWW  .  PATFX  »  wind  (1,1!  ♦  PATFY  • 
wind (2,1!  ■>  PATFZ  '  wind: 3,1, 
PCSWW  >  PATFX  •  wind(l,2)  ♦  PATFY  • 
wind  (2, 2)  -  PATFZ  •  wind  :  3, 1  > 


ccnm  check  to  see  if  this  is  che  last  pass  3/19/93 
i  f  (last .  eq.  1 ;  t.hen 

ctnm  assume  that  the  input  2-d  data  is  referenced  to  tr,e  quarter 
c  chord.  if  it  is  not,  this  value  wiii  need  to  be  added  as 
c  an  input  3/19/19 


>:mref  =  C  .  5 

ctniTi  define  the  perpendicular  x.y  and  :  d. stances  for  momenta  3/10,93 
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c-r.n  orily  xdist  is  needec  j  '25 'SI* 

xdisc  =  r.-rpx  -  txle  *  xir.ref  *  s:-: 
ydiE"  -  yl€  -  xr.ret  *  dy 
zdist  =  r.Ie  -»  xrr.rsf  »  cz 


?ATM>:  =  Patr2  ’  >ydLsZ  -  F.KPY .  -  FaZrV  *  .zdisz  -  RK?: 

PazMV  =  PatFX  *  ;zcisz  -  ?.M?2.  -  latTZ  ’  ;xd:st  - 

?azKZ  =  FazFY  ’  'Xcist:  -  RXPX;  -  FazF:*:  ’  ■yd.Lst  -  RM?V 

ZZT.7..  calcuiazt  the  rr.crr.er.t  based  cr.  the  >:  ar.d  t  rzrce  coz.pzr:et£  2  '\i 

endif 

PCMWW  =  PATKX  »  *  ?AT^^V  - 

-  wind;  2, 2)  PA.TM2  *  \’Vind.5,2, 

PCMYWft  =  PATKX  wind;  1,2;  rATKY  * 

-  wind (2, 3;  ■*  PA.TMZ  '  wind -.5. 5. 

PCMPWW  =  PA^MX  *  wind.:,:)  -  PA'^^!V  ' 

•  wind (2,1.'  +  ?AT^!2  *  wind. 3,1. 

ctnif.  gscale  is  a  scale  factor  to  scale  the  d\'naz:ic  pressure  on  the  tail 
c  this  routine  currently  assu.*r.es  that  the  tail  is  patch  *2  4/22/95 

if  (np . eq. 2 ) then 

PCIiWW  =  PCLWW«qscale/ fSRSF) 
e:se 

PCLWW  «  PC1WW/(SREF) 
endif 

PCSWW  .  PCSWW/'SREFJ 

if  Cast  .eq  -0)  then 

PCDWW  =  PCDWW/ISRE?) 

PCMWW  =  PCMWW/fSREF  •  CHAR) 
else 

ctn,T.  define  ratic  of  areas  for  lift,  drag  and  c.orent  corrections 
ctniT.  3/18/95 

arearac  s  sum/sref 

ctnir.  add  the  viscous  drag  component  to  PKART's  induced  drag  3/18/53 

PCDWW  a  PCDWW/iSREF;  *  cd2dpt ftp. nc) *  arearat 

ctnir.  modified  pitching  moment  for  viscous  moment  and  moments  caused 
ctnm.  by  friction  drag  3/16/95 

ctnm  qscaie  is  a  scale  factor  to  scale  the  d'/namic  pressure  cn  the  tail 
c  this  routine  currently  assurr.es  that  the  tail  is  patch  *2  4/22/93 

i f (np.eq. 2) then 

PCMWW  s  (qscale*cl2dpc ;np,nc.  *x6ist  - 

♦  cir:2dpt  (np,  nc;  ♦  chord  *  cd2dr't  (np,  nc:  *2dist>  * 

■*  arearat/cbar 

else 

PCMWW  s  (cl2dpt  (np,r.c, ’xdist  ♦  cmldpt  (np, nc)  *  chord  - 

-  cd2dpt 'np.nc; ’zdist.  *  arearat/cbar 
endif 

write (13 , 689  5  nc ,xl€, xdist . tie. rd;st . arearat , 

*  cl2dpt  (np.  nc: ,  cn.2dpt  inp,  nc: 
end:  f 

PCKl’WW  *  PCKrWW/iSREF  *  SSPAK) 

PCMRWW  a  PCMRWW/fSREF  ’  SSPAN’i 
end:  f 

ctnm  re-initialicec  due  to  use  as  a  "woricing*  variable 
sum  a  c . 
patfx  a  0. 
patfy  a  0. 
pacfz  a  0. 
patma  a  0 . 
pacir.y  a  0 . 
patmz  a  0. 

C 

C  CONVERT  PATCH  COEFFICIENTS  FROM  WIND  TO  BIDV  AXES 
C 

Ctnm  suiTjr.aticn  added  due  to  viscous  corrections  2/25/93 
:  f  .  ivjyrnt .  ec .  C  .rr.  ident^np  .r.e.:  'h-:r, 

PCLB(np')  a  PCLBinp)  PCDWW  *  CAL  ♦  PC2/WW  *  CY  *  SAZ  * 
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n  n  n 


PCSV.V  *  ?'■  *  SAL 
PCZ'E'.nr'  s  PrZE>np:  -  ••  rv 

PCSVsV,'  *  cv  .  CAL 

PCSBinp:  =  rCSE'.rjp,'  -  PCSWV  •  ZV 
PCMEinpj  =  PCMEinp;  -  FC>rrtV  ’  ZV 
PCKPWW  »  SV 

FCKREirip.;  =  PrKFE'npi  -  PCMPVsV  * 
PCMWW  ■*  5Y  *  CAL  - 
PCMYcir.p'.  =  PCK'i'Ec.p;  -  FCKYWV  - 


FCL.Wa  '  SAL 


CEAr  'SFPA,rC  ’  PCKvTa  •  FV 


CAL  ^  f  CEAF, 'EEFAK)  * 
*  rCMRWii’.'  •  cv  ■"  SAL  * 


PCLE^nr;  =  PCLE:npi  -  PCLVi 
CV  *  vscZ  -  PCSVjW  FV 
PCDSfnpi  =  PCL-Einp)  -  rCDWv^  *  CV  ’  vr£ 
vsa:  -  pcsww  »  sv  *  veil 
PCSBinp}  =  PCSBinp)  PCSWis  *  CV  -  PCI 

rCMSinpi  =  ?CMB:np;  PCMWW  »  CV  -  :SSPAaN/CEA.R:  ’  PCMRWW  * 


sv 


PCMRB(np)  s  PCMRECip}  »  PCMRWW  *  CV  *  veal  •*•  (CEAR/SSPAN)  * 
PCMWW  •  SY  *  veal  -  PCM^W  •  vsal 
PCMYEinp)  =  PCMVBinpJ  PCMYWW  *  veal  -  PCKRWW  »  CY  » 
vsal  f  iCBAR/SEPAI':;  *  PCMWW  •  SV  ’  vsal 
encif 


:c 


pclwinp)  s  pclw.'np)  *► 
pc^’inp)  =  pcdw(r-p}  * 
pcsw(np)  =  pcsw(np) 
pcinw\'np)  s  pcmw,'np;  • 
pciriyw(np,i  =  pcmywinp) 
perrj:w(np)  *  pcrrirw{r.p) 
continue 
coneinj€ 


PCLWW 
PC  D'WW 
PCSWW 
PCMWW 
-  PCKTWW 
•  PCMRWW 


SUM  UP  COMPONENT,  ASSEK3LY.AN0  TOTAL  FORCE  AKT  MOMENT 
COEFFICIENTS  IN  WIND  AXES 


DO  50  NP  «  1,NPATCH 

CCLW(KOMP(np)  }  *  CCLW.'KOMPir.p 
CCDW(KOMP{np;  =  CCDW  .KOMPir.j: .  ;  - 
CCSW:rOMP(np)  '  =  ceSW-'KOMP-n? .  ■  - 
CCMW(KOMP(r,p;  ■.  *  CCMW  iKOMP .  - 
CCKTW.KOKPinp,  =  CCMVW;KOKP,r.p  , 
CCKRWiKOMP(np^  ;■  »  CCMRW;f:OM?,r.p.  . 
ACLW(KLASS(r,pi  i  -  ACI>W  (}Uj;sS  .  r.r  ;  , 
ACDW;m*ASS  inp) ;  =  ACDW  iK-LASS  .r.p  . 
ACSW  i  KLASS  i  r.p  ) )  =  ACSW ;  KLASS  i  r.p .  , 
ACMW  ( KLASS  ( np )  )  =  ACMW  (KLASS  ■;  r.p :  : 
ACMYW  '  KfcASS  ( np ,  =  ACMY'W  .;-.i..Ai-  ■ 

ACKRW  ;  KLASS  i  TiP  I  ,  *  ACMRV. .  K.*ASi  r.p 


TCLW  = 

TCLW  » 

PCLW.'np)  , 

/  wCvy 

TCDW  = 

TCDW  - 

PCDWjnp) , 

/tQVV 

TCSW  s 

TC  SW  t' 

PCSWfnpi 

’  FFVKl 

TCMW  = 

TCMW  -P 

PCKW  ( rx ;  . 

^rSVM 

TCKYW  : 

s  TCKYW 

-  PCMYWc 

-.p'  *  psvm: 

TCMPW  = 

s  TCMRW 

-  PCMRWir.p;  *  RSVM 

PCLW  ( r.p  ;■ 
rCDW :  r.p  ■ 
pcsw :  T'.z ) 

PCMW :  r.p  ;■ 

.  PCMlWinp) 

*  PCKR'W:npl 

-  rCLWLr.p) 

•  PCDW;r.p; 

-  ?C£W,npj 

-  ?CK-»J;r.pi 

•  rCKiVvr.p 


C  CONVERT  PATCH  COEFFICIENTS  FROM  WINO  TO  STABILITY  AXES 

c 

PCLS(np)  *  PCLWfnpJ 

PCDStr.p)  =  PCDW(np)  *  CV  -  PCSW  r.p )  *  SY 

PCSSinp)  *  PCSW(np)  •  CY  +  PCDWLr.p)  •  SY 

PCKS(np)  =  PCMW(rjp)  •  CY  *  (SSFAN/CBAR)  • 

PCKRW(np)  *  SY 

PCMR3(np)  =  PCMRWinp)  *  CY  iCBAR/SSPArL  * 

>  PCMW(np)  -  SY 

PCMYS-r.p)  *  PCKYW{np) 

SO  CONTINUE 
C 

C  CONVERT  COMPONENT  COEFFICIENTS  FROM  WIND  TO  STABILITY  AXIS 
C 

DC  60  NK=l.NCOMP 
CCLS;NK1  =  CCLW(NK) 

CCDS, NT}  =  CCDW(NK}  *  CV  -  CCSW  yS  *  FV 
cess NT.}  =  CCSW(N>L  *  CV  *  CCDW  NT  *  iV 
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CCMSi  II}'.’  =  CCM'rtiN'r'  *  ~V  '  t-.'.  ■  .- l 

~cxRs;Nf'  i  ccy.R^' .'NK  ’  TV  -  :  ;rr.-.::  •  zz^'vc  »  sv 

cryys.'NK  =  ccKwnJK 

C  COIiVERT  COMPON'ENT  CO EFrl Cl E:.’7S  FFOK  t'O  SCCV  APIEE 

ccleiik;  =  ccLw:!!}’,:  •  cal  -  ccov.y.T  •  rv  •  sal  -  ccsv.iw:,  • 

-  SAL 

CCLB.NT,  =  CCDVi,;-.'}:,  •  CY  '  CAL  -  CCLL  .  r:}'-  •  SAL  -  CCSVCLwT,  ’ 

»  »  CAL 

CCSBiNK)  =  CCSKlNiL  •  CV  -  CCOWINT  •  SY 

ccMS;!JK)  =;  ccMw;m:,  »  cv  -  isspan  chap  •  cckf.^.  nt,  •  sy 

CCMSElNKl  s  CCMRWINK,  •  CY  ’  CA.L  -  .  C5Ar..  SSPAK,  *  CCM’aLA'K)  ’ 

+  SY  •  CAL  -  CCMWINK;  •  SAL 
CCKYBiNK)  =  CCKYWC'H:;  ’  CA.L  -  CCKF»  ST.:  *  CY  ’  SAL  -  C3AF./: 

..  ’  CCMW:NK;  *  SY  ’  SAL 

6C  COKTIN-JE 

C  CONATP-T  ASSEMBLY  COEFr  ICCESTS  FROM  F'CNC  TO  STAECLCT:’  A>3£ 

C 

DO  70  NA=1,NASSEM 
ACLS(NA)  =  ACLW(NA) 

ACDS(NA)  =  ACDWtNA)  •  CY  -  ACSWIKA:  SY 

ACSSINA)  *  ACSW(NA)  *  CY  ■»  ACDW(KA:  ’  SY 

ACKS(NA)  =  ACMW{NA)  •  CY  ■>  !SS?A!C/CB.AR:  »  ACMPW(N'A)  •  SY 

ACKRSfNAJ  =  ACKRW(NA)  ’  CY  I'CSAR 'SSPAt.’.i  •  ACMWsA’A)  ’  SY 

ACMYSINA)  =  ACKYW;NA! 


CONVERT  ASSEMBLY  COEFFiCCENTS  FROM  WCNC 

^COW :  *\A. 


BODY  AXES 

CY  •  SAL  -  ACSKINA) 


SY 

SY 


WERT 

TO 

'TAL  COErFICrENTS  ?1 

TCLS 

s 

TCLW 

TCDS 

s 

TCDW  *  CV  -  TCSW  » 

TCSf 

= 

TCSW’  »  CY  *  TCDW  ' 

TCKS 

TCMW  *  CV  *  :SSrAN 

ACLE(NA)  *  ACI>.';NA)  •  CAL 

♦  »  SAL 

ACOE(NA)  =  ACDW(NA)  ’  CY  *  CAL  -  ACLN:NA;  »  SAL  -  ACSKiNAi 
-  •  CAL 

ACSEINA!  =  ACSW(NA)  •  CY  •  ACDWiNA  ’  SY 

ACME(^Oi;  =  ACMWffJA)  •  CY  -  !SSFA.N/CBAE’  •  ACMPWNA)  •  SY 

ACMPB(NA;  =  ACMPW(NA)  •  CY  '  CAL  -  .CBAR'SSPAN)  *  ACMWiNA;  • 

♦  SY  '  CAL  -  ACMY'/ilNA)  *  SAL 

ACMY’EINA:  =  ACMYW(NA)  •  CAL  -  ACKPV;  NA  »  CY  •  SAL  -  .CBAR/ESPAN 

♦  '  ACMWiNA)  •  SY  '  SAL 
70  CCNTCNUE 


SY 

CBAF'  ’  CCMRW  '  SY 
TCMPS  =  TCMRW  •  CY  -  CSAP/SSPAN  >■  CCMW  •  SY 
TCKYS  =  TCKYW 

CCN'CERT  TOTAL  COEFFC CC E^,'T£  FROM  WINC  TC  BCDV  A.'TS 

TCLE  =  TCLW  *  CAL  ♦  TCLW  •  CY  •  SAL  -  TCSW  ■  SY 

*  •  SAL 

TCDB  =  TCDW  •  CY  ’  CAL  -  TCLK  •  S.AL  -  .CSW  >  SY 
•>  CAL 

TCSE  =  TCSW  •  CY  ■»  TCDW  »  SY 

TCMB  =  TCMW  *  CY  -  ISSPAN/CBAR)  •  TCMRW  •  SY 

TCMRE  =  TCMRW  •  CY  •  CAL  *  ICBAR/SSFAN)  »  7CKW  • 

-  SY  ’  CAL  -  TCMYTiv  •  SAL 

TCMYB  *  TCMYW  •  CAL  »  TCMRW  •  CY  •  SAL  -  ICEAR/SSPANi  - 

*  TCMW  ’  SY  •  SAL 

pp:nt  out  all  force  and  moment  lata 

nir.  if  in  a  viscous  iteration,  skip  tNese  writes 

if  ( ivprnt .eq. 1 i  goto  301 
WRITEUO,  esS) 

WRITE (1C,  604) 

WRITE(16,660) 

WIND  AXES  COEFFICIENTS 

WPITE(:6,607) 
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c 

c 

c 


c 


Wr.I  ■’  j  c. ,  6C  E  : 
v.T:'rE;ie,  eot . 

DC  8C  N?sl,NrATJH 

WRITE  ,  I  c  ^  62  C  N?  ,  J  PNAME  ^  I ,  N?;  ,  I  =■!  .  6  ,  ,  F  CDW  ;  NP  ,  FTDW  i  ,‘4? 
PCMW;NP'  ,  PCM^'WvKP)  ,  pDMRWiKF  .SDKAlMP 

SZ  CONTINUE 

W?  I TE  i  1  6  ,  610,- 
W?  I TE  1 1  6  ,  62  i 
DC  86  NE=l,NCOMP 

Wr.  I  TE  \  Zt ,  iZl  NT^ ,  CCLW »  N}^ ,  ,  CCDW  { N*K ,  ,  CCSW NIC  ‘  .  CC.^fW  ^  !*}'  , 
*  CCKYW(N}::  ,CCMRW(NK1 

St’  IC^’TI^J’JE 

WHITE  V 1 6 , 612 ; 

WPITE.'ie.  626' 

DC  S2  NA^:,NASSEI< 

WRZTEde,  622:  ACLW{NA;  ,ACD'WiKA  ,AC£WiNA)  ,ACKW(NA)  , 

ACMYW  { KA )  ,  ACMRW  ( KA  ;- 

S2  CONTINUE 

WHITE (16,615; 

WH:CE{16, 627; 

WHITE  (16,624)  TCDW .  TCDW,  TCSW.  TCKW,  TCMYW,  TCMRW 


STABILITY  AXES  COEFFICIENTS 


WRITEde,  659} 

WHITE  d  6 ,  60fi) 

WRITEdC,  605; 

WRITEde,  606) 

DO  82  NP=1,N?ATCH 

WHITE (16, 620,  NP.  ( PNAKE ( I , NP) , 1*1 , 6) , PCLS (NP) , PODS (N?) 

♦  PCM£(NP) ,?CMVS(NPJ ,PCKR$<NP).SUMA(NP) 
WPITE(13, 620}NP, {PNAME:I,NP) ,1.1,6) ,PCLS{KP) 

62  CONTINUE 

•WF.ITECe,  610) 

WRITEde,  625  ) 

DO  68  NKsl,NCOMP 

WRITEde,  622  ,  NK,CCLS(NK}  .  CCDS  (KK)  ,  CCSS  (NK)  ,  CCKS  .NK>  , 

•r  CCKYSINK)  ,CCMH£(NK) 

66  CONTINUE 

WRITEde,  612) 

WRITEde,  62  6) 

DC  94  NArl,KASSEM 

’WRITE  16.  622)NA,ACLS;NA)  ,ACDS  (NA)  ,ACSS(NA)  ,ACKS  ;NA)  . 

*  ACKYS(NA) ,ACKRS(NA; 

54  CONTINUE 

’WRITEde,  615) 

WPITEde.  627) 

WRITE  (1 6 ,  624 )  TCLS .  TCDS .  TCSS .  TCMS,  TCKl’S.  TCMRS 


PCSS(K?) 


C  BODY  A>SS  COSFFICIHn^TS 


WRITEde,  655) 

WRITEde,  605) 

WRITEde,  6C5) 

WRITEde,  628) 

DC  84  NP=1,NPATCK 

WRITEde,  62CJNP,  £PNAKE(:,NP)  ,1  =  1.6;  .PCLB(NP;  .  PC2B  (NP;  ,PCSB{Nr; 

*  PCMBiNP;  ,PCKyB(N?’  .PCKRSiNP)  ,SUMA(NP; 

84  CONTINUE 

WRITEde.  610; 

WRITEde,  629) 

DO  9C  NK=l,NCOMP 

WRITE  (16, 622)  NK,CCLB(N}:)  ,CCDB(NK)  , CCSB {NK )  ,  CCKB (NK)  , 

1-  CCKYBlNK)  ,CCMRBtNK) 

90  CONTINUE 

WRITEde,  612) 

WRITEde,  630} 

DO  96  NA.l.NASSEK 

WRITEde,  622)NA,ACLB(NA)  .ACDE(NA)  ,  ACSB  (NA)  ,  ACKB  (NA)  . 

♦  ACMYB ( NA } , ACMRB ( NA ) 

96  CONTINUE 

•WRITEde,  615) 

WRITEde,  631) 

Wr  :  TE  d  6  ,  €2  4  ,  TCLB  ,  TCDE ,  TCSB ,  TCMH ,  TCKi'B,  TC.MRH 
Id  1  ccr.tir,'-^ 

ctr.rr.  output  for  data  comparison,  added  22  dec  92,  if  added  1/25/93 
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TCMS 


-  f  :  i vprTit .  ec . ; .  or  .  i vprn^  .  eq .  o  ■  or.er. 
WRITE(13,  634)  REAL v ITcTET,  , ALrE> 

KE^JRN 


FORMAT  STATEMENTS 


ic:  FORMAT; •AERCOYNAJ'!:C  DATA  FOR  PATCH' 
eci  FCRMAT^/ix. -COLUMN' .;s,4C>:,  *vELor:T:ES  : 

-2>:,  ’v;nf  =  ■  ,FiC.4,A:s/; 

€CZ  FGRKATC;;.  '  PANEL IX,  -X’.PX,  ’v-.k:.  -d- 
*-VY  MCX,  *V2  -  ,11X,  'V*  ,  lOX.  ‘CP*  ,  8X,  ‘MACH 
603  FORMAT ;  IX ,  I E ,  LX ,  3 FI  C-  -  3 ,  iX .  FI 2 . 4 . 2 X .  4F:  1 
6C4  FORMAT{ //oOX, •»**»-*»***»*»»»•-»***---- 
*'FORCE  ANC  MOMENT  COEFFICIENT£'/3CX,*’' 


,22X,CA4  • 


*  .  A1 5 


X, -DUr • . :2X, 'VX* , ICX 


2>:.F:C.4.2X,Fi0.4; 
•  •  /  3CX, 


6C£  F0RMAT;3C>:,  ’PATCH  COEFFICIENTS* /3CX.  • . - . . */) 

606  FORKATdX,  *  PATCH*  ,  lOX,  ‘NAME'  ,  ISX.  *CL*  .£X,  'CD*  ,SX,  'CY*  ,7X,  ‘C.ir.* 
■r?X.  ’C^n  * ,  7X.  *  C_1  '  ,  5>:,  '  PATCH  AREA/SREF  *  ■  ; 

6C7  FORMAT(/30X.  ‘  ‘ /3  CX,  'WIND  AXES'  /jCX,  •'---*•*»-■  /) 

60e  ?ORKAT(/3GX, ‘**»*****^*’***’/3CX, ‘STAEILITy  AXES*/30X, 


6C9  FORMAT! /50X. ********** ‘/30X, *30DY  AXES  * /3CX. •’***’*-’»* /) 

610  FORMAT! /3 OX.  'COMPONENT  COEFFI CIENTS *  OCX.  ‘ - *, 

- ./) 

612  FORMAT! /3 OX, ‘ASSEMBLY  COEFFICIENTS* /LCX. * . . 

615  FORMAT!  OOX, 'TCTAL  COEFFICIENTS  * /3CX.  * . - . */) 

62C  F0RKAT!1X.:5, 6A4, 6FlC.4.10X,FiC.4J 
622  FORKATdX. IS, 24X.  6F:0. 4) 

624  FORMAT(30X, 6F1C .4} 

625  FORKATdX.  *COMP*  ,  IIX,  'NAME*  .ISX.  *CL‘,6X.  *CD*.ex.  •CY‘.7X.  *C„Tr.‘  , 
-r7X,  *C_n*.7X,  ‘C.!*  /) 

626  FORMAT!iX,  'ASSEM'.IOX,  'NAME'dSX.  •CL*,6X.  •CD*.6X.  'Cy.TX,  *C_ir,* 
‘“'X.  'C^n*  .7X.  'C.:  *  /) 

627  FORMAT(3SX.  ‘CL'.fiX,  'CD*.8X,  *cy*.7X.  •C.rr-*. 

*7X, •C_n‘,7X.*C.:'/) 

628  FORKATdX.  'PATCH*  .ICX,  ‘NAME*  .IfiX,  'CN*  .6X.  ‘CA*  .SX,  ‘CY*  ,7X.  'C.ir,* 
*7X,  '  C_n  • .  7X.  '  C.l  *  .  £X.  •  PATCH  AREA/SREF  *  / ) 

629  FORMAT  IX.  'COMP'  .IIX.  'NAME* ,  ISX.  *  CN* .  8X.  ’CA*.  8X.  ■CY*.7X,  *C_ir,*  . 
^7X.  •C^'.7X.  'C^l'/) 

6  3C  FORMAT! :X. ‘ASSEM*  dOX. 'NAME* . ISX. 'CN* ,8X.  *CA* .8X. ‘CY* .7X. *C.R' 
-7X,  *C_n' .7X, 'C_l* /) 

6  21  FORMATvOSX.  ‘CN'.SX.  ‘CA'.fiX,  ‘CY'.TX.  'C.-t*. 

-''X,  ‘C.n* ,  7X,  'C.l  ■  /} 

650  FORKATdX, 'NOTE;  I*  the  geometry  is  panelled  using  a  piane  of 
**  *  symmetry  about  the  YaO.C  plane,  only  the  total  force  and’/O: 
'moment  coefficients*. 


'  will  include  the  contribution  from  the  image  panels. ‘//j 
660  FORMAT! //IX. 'PANEL* ,:X. IS, IX, *KAS  NO  ICEICHBCRS  ON  SIDES', 

IX,  12,  IX.  ‘AND*  ,  IX,  12  ,  :X,  ■  .  THEPEFCFE  TANGENTIAL  SURFACE  ’  , 
VELOCITIES  CANNOT  BE  COMPICTED  FOR  THIS  PANEL.  *  //; 

675  FORMAT! /IX,  ‘SECTION  PARAMETERS  *  /SX,  ’XLE'  ,  ’YLE*  ,“X.  ’ZLE'  ,  SM 
-•CHORD*, ex,  ‘CIRC  ,SX,  'yLE,'SSP.AN' ; 
e ? e  FORMAT ! IX , SFl 0 . 3 , 4X , F: 0 . 5 ) 

6  77  FORMAT!  /1 8X,  *  CL  * ,  6X ,  ’  CD  ' .  8X .  '  CY  '  ,  7X,  'C^m*  ,7X,  'C_r.'  ,7X,  ’C,!  ‘  /) 

678  FORKATdX,  '  WIND  *  ,  SX,  6F:  0 . 41 

679  FORKATdX,  'STABILITY' ,6F:C. 4; 

680  FORKATdX,  'BODY'  dX,fF10.4: 

6£9  format ! lx, i3 , 7 i ix , f 6 . 4i ) 

699  FORMAT!lHl) 


END 
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Appendix  D. 

Subroutine  IDUBPOT.f 


•DECK  JDUSPOT 

SUBROUTINE  IDUBPCT (SCa 3 CXr . CYP , CE?  ,  r  JX,  P JY,  r JZ, 

•  CNX , CNY »  CK2 , XF , Y? , 2P,  C JK, C JKI ) 

ctnm  scale  added  to  argument  list  to  receive  the  scaling  factor  for  the 
c  doublet  strength  on  the  first  wake  4/I5/S3 

c  cjkl  brings  bacic  to  waicir.fl  tne  va.  ue  of  cjic  for  the  1st  watce  column 


C 

C  PURPOSE:  THIS  ROUTINE  COMPUTES  THE  VELOCITY  POTENTIAL  INFLUENCE  COEFFICIENT 

C  ON  PANEL  K  DUE  TO  A  UNIT  DISTRIBUTED  DOUBLET  ON  PANEL  J 

C  CALLED  BY:  WAKINFL 
C 

C  EXTERNAL  REFERENCES:  CROSS 

C 

C  ENVIRONMENT:  VAX/VMS  FORTRAN, CRAY  CFTTT  FORTRAN, 

C  MACINTOSH  DCM  KACTRAK  PLUS  3.0 

C 

C  AUTHOR:  Dale  Ashby, 

C  MS  2<7-2,  NASA  Ames  Research  Center,  Moffett  Field,  CA.  R4C35 

C  DEVELOPMENT  HISTORY: 

C  DATE  INITIALS  DESCRIPTION 


C 

C 

ctnm 

ctnm 


EPS,  rCVfiPI,  CSAR, 

SREF,  RMPX,  RKPY, 

SCLRES, RLXFAC, 

RFF 


Cvi>wi  added  to  make  EPS  available  to  IDUBPCT  </7/S3 
RLXFAC  added  2/5/S3 
COMMON/  CONST  /  PI, 

+  SSPAN, 

+  KAXIT, 

RCORS, 

REAL  CXP{5),CyP(5),C2P(5) 

CXP(5)-CX?(1) 

CYP{5)-CYP  C) 

C2P (5) -C2P  (1) 

PJKX  -  XP  •  PJX 
PCKY  -  YP  -  PJY 
FJK2  -  2P  -  PJ2 

PNJK-PJKX»CNX+PJKY»CNY+FJK2*CN2 
TMX- (CX? (3J *CX? ) /2.  -  PCX 
TMY- (CYP  iSj-^CYP  (4)  ) /2.  -  PJY 
TM2-(C2?(3)-^C2?i4)  )/J.  -  PJ2 
TMS-SORT  (TKXTMX-TMyTMY-^TMZ’-TMZ) 

CMX,CMY,CMZ  COMPONENTS  OF  THE  ’M*  VECTOR 
CKX-TKX/TMS 
CMY*TMY /TMS 
CM2-TM2/TMS 

*•  CLX,CLY,CL2  COMPONENTS  OF  THE  'L'  VECTOR 

CALL  CROSS (CMX,CMY,CMZ,CNX,CNY,CN2,CLX,CLy,CLZ) 
CJK  -  0. 


CJKl 


0. 


DO  10 

NS-:, 4 

AX  - 

XP  -  CXP  (NS) 

AY  - 

YP  -  CYP  (NS) 

A2  - 

ZP  -  C2P (NS) 

BX  - 

XP  -  CXP(NS-fl) 

BY  - 

YP  -  CYP  (NS-»1) 

B2  - 

ZP  -  C2P(NS*1) 

A-SORT(AX*AX  ♦ 
B-SQRT(BX*BX  + 
XS  -  CXP (NS-1) 
YS  -  CYP (NS+1) 
2S  -  C2P(NS+a) 
S-SQRT(XS»XS  ♦ 
SM*XS*CMX 
SL*XS*CLX 


AY*AY  +  A2'A2) 
BY*3Y  +  B2»B2) 

-  CX? (NS) 

-  CYP  (NS) 

-  CZP(NS) 

YS*YS  *  2S*2S) 

YS*CMY-»2S*CM2 

YS*CLY+2S*CL2 


RMP2, 
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AM*AX-CMX+AY*CMy+A2*CKZ 

AI»AX-CLy*AY*CLY*A2*CL2 

3M«BX-  CMX-»  BY  •  CMY-^  BZ*  CM2 

BL-BX*CLX*BY»CLY+B2«CLZ 

PA-SM* (AL'AL+PNJK*PKJK)-AM-AL*SL 

PB-SM*  (BL-BL-t-PN'JK*PKJK)-BM-BL*Sl 

RNUM-SL'PNJK* (A*PB-B*FA) 

0N0K-?A*PBfPNJK*PNJK*A-3*SL-SL 

ctnm  the  following  is  added  to  handle  the  special  case  of  when  the 
c  point  j  lies  in  the  plane  of  the  panel  k,  as  per  VSAERO 

c  theory  document  4/6/93 

call  cross  (ax,  ay,  az,  xs,  ys,  zs,  rls,  rly .  r  j.z) 

rls«sqrt  (rlx*rlx+rly*rly-*-rl2*rlz) 

rlsx«rlx/rls 

rlsy-rly/rls 

rlzz-rlz/rls 

ctnm  take  the  dot  product  of  the  previous  vector  and  the  normal 
c  vector  of  the  panel  to  determine  if  tne  control  point  is  on 

c  the  right  or  left  side 

c  if  rlsn>0,  rightside 

c  if  rlsn<0,  leftside  4/8/93 

rlsn-rlsx*cnx+rlsy»cny-^r2s2»cn2 

ctnm  if  the  projected  height  approaches  zero  from  the  positive  sioe 

If (pnjk.gt.C)  then 
if  (dnorr..gt.O)then 
DUBINF-C. 

ctnm  if  dnom  "approximately"  equals  zero 

el  seif (abs (dnom) .It. EPS) then 

ctnm  if  on  the  "right"  side 

if  (risn.gt ,0. ) then 
D’JBINF-pi/2. 

ctnm  if  on  the  "l€ft"side 
else 

DUB:Nr-=-pi/2, 

endif 

ctnm  if  dnom  less  than  zero 
else 

ctnm  if  on  the  "right"  side 

if  (rlsr.gt .C . ) then 
DUBINF“pi 


ctnm  if  on  the  "left"side 
else 

DUBINF— pi 
endif 
endif 

ctnm  if  the  projected  height  approaches  zero  from  the  negative  side 
else 

If  (dnom.gt .0. ) then 
DUBINF-«0. 

el  seif (abs (dnom) .It. EPS) then 

ctnm  if  on  the  right  side 

i f  (risn.gt .0. ) then 
DUBINF»-pi/2. 
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eii.e 


ctinrr  if  on  the  left  side 

DUB:Nr-pi/2. 
endi  f 

ctnm  if  or.  t.he  “left"side 
else 

crnm  if  on  the  right  side 

if  (rlsn.gt.O.)ther. 

DUBINF— pi 

ctnin  if  on  the  left  side 
else 

DUBINF-pi 
encif 
endi  f 
endif 
else 

DUBINF  -  ATAN2 (RNUM,DNOK) 
endi  f 

ctnm  if  working  on  the  first  wake  column, (assumes  wake  is  paneled  from  root 
c  to  tip),  :  use  doublet  effect  based  on  scale-  length  of  three  sides 

c  divided  by  the  perimeter  of  the  wake  panel  4/15/93 


CJKl  -  CJK:  *  (scale'DUBINr) 
CCK  -  CJK  -  DUBINF 

10  CONTINUE 
RETURN 
END 
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Appendix  E. 

Subroutine  LENGTH.f 


Subroul ine  Length (wptx, wpty , wpt 2, scale) 


C  PURPOSE:  corip’utes  a  ratio  of  the  lengths  of  sices  1,2  i  5  to  the  peri- 

c  meter  of  a  wake  pane}  (used  to  scale  the  first  wake  column 

c  to  be  able  to  remove  the  wake  panels  from  the  body) 

c  Assumes  wake  paneling  is  from  root  to  tio 

C 

C  CALLED  BV;  wakinfl 
C 

C  EXTERNAL  REFERENCES:  none 


C  £NVIROA>!£NT:  VAX/VWS  FORTkAK. CRAY  C:711  FORTRAN, 

C  MACINTOSH  DCM  MACTRAN  PLUS  3.C 

C 

C  AUTHOR:  Thomas  N.  Mouch, 

C  KU  FRL,  University  of  Kansas,  Lawrence,  KS  660^5 

C 

C  DEVELOPMENT  HISTORY; 

C  DATE  INITIALS  DESCRIPTION 

C 

C - 

dimension  wptx (S) ,wpty (5) ,wptz (S) 

sumnum-0. 

sumdnm  -  C. 

ctnm  step  through  the  A  sides 

do  10  npts-1,4 

dx-wptx (npts) -wptx (npts+1 ) 
dy»wpty (npzs) -wpty (npts-I > 
d2»wpt2  (npts)  -wptz  (npts-f-1) 
side«sqrt (cx’dx  ^  dy*dy  *  dz’dz) 
if  (npts,l€,3)  sunnum-sumnuiT;  ♦  side 
sumdnm  «  sumdnm  side 
10  continue 

ctnm  determine  the  ratio  of  (sum  of  three  sides) /perimeter 

scale  •  sumnum/sumdnm 

return 

end 
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Appendix  F. 
Subroutine  RHS.f 


•Z-ECK  RHS 

SUBROUTINE  RHS 


C  PURPOSE:  THIS  ROl’TINE  FORMS  RIOHT-HANO  SITE  X’ECTC'?  FOR  SET  OF  EQUATIONS 

C  EASED  OK  'I^’E  CURRET’T  FPEE-STREAM  CONDITIONS  AND  PRESET  NORMAL 

C  VELaCITIES 

C  CALLED  EY:  WA-KINFL 
C 

C  E>;TERNAL  REFERENCES:  NONE 

C 

C  ENVIRONMENT:  VAX/VMS  FORTRAJC,  CRAY  CFT77  FOP.TRAf^, 

C  MACINTOSH  DCM  KACTRAN  PLUS  3.0 

C 

C  AUrnOR:  Dale  Ashby, 

C  MS  247-2,  NASA  Ames  Research  Center,  Moffett  Field,  CA.  94C35 


C  DFv/ELOPMENT  HISTORY: 

C  DATE  INITIALS  DESCRIPTION 


C 

C  CODE  DIMENSIONING  PARAMETERS 
C 

C  NUMBER  OF  SURFACE  PANELS  ALLOWED 
C 

PARAMETER  INSPDIM  *  4000) 

C  NUMBER  OF  NEUMANN  PANELS  ALLOWED 

PARAMETER  (NNPDIK  *  50) 

C  NUMBER  OF  PATCHES  ALLOWED 
C 

PARAMETER  (NPDIK  =  20) 

C 

C  NUMBER  OF  BASIC  POINTS  ALLOWED  FOR  SECTION  DEFINITION 
C  (ALSO  NUMBER  OF  SECTIONS  ALLOWED  PEP  PATCH) 

C  (ALSO  NUMBER  OF  ROWS  OR  COLUMNS  1  ALLOWED  ON  A  PATCH) 
r  CAUTION:  DC  NOT  SET  THIS  PARAMETER  DC  LESS  THA-N  5C. 

C 

PARAMETER  (NBPDIM  =  ICO) 

C 

r  NUMBER  OF  WA.KE  PANELS  ALLOWED 

PARAMETER  (NWPDIM  =  1500) 

C  NUMBER  OF  WAKE  COLUMNS  ALLOWED  OK  EACH  WAIE 
r 

PARAMETER  (NWCDIM  *  50) 

n 

C  NUMBER  OF  WAKES  ALLOWED 
C 

PARAMETER  (NWDIM  =  50) 

C 

C  NUMBER  OF  SCAN  VOLUMES  OF  EACH  TYPE  ALLOWED 
C 

PARAMETER  (NSVDIM  »  10) 

C 

C  NUMBER  OF  POINTS  PER  OFF-BODY  STREAMLINE  ALLOWED 
C 

PARAMETER  (NSLPDIM  =  1000) 

C 

C  NUMBER  OF  GROUPS  OF  PANELS  ON  WHICH  NONZERO  NORMAL  VELOCITY  IS  PRESCRIBED 

?ara:.:eter  inveldik  =  looj 

c 
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:  ’'TlTWBEF  C?  LINT?  AT  A  TIME  TT  EE  READ  IN  FOR  THE  INFLUENCE  CGEF .  KATF 
r  IN  THE  SOLVER  ROITIN'E  (BUFFERED  INPUT  FROM  THE  SCRATCH  FILE! 

C  I  CAUTION:  DO  NOT  SET  LARGER  THAN  ONE  vN.>^SS  YOU  ARE  SURE  VCU  HA’vE 
C  ENOUGH  MEMORY  TO  HANDLE  BUFFERED  INPUT: 1 

PARAMETER  (MAT3LT  *  1- 


NUMBER  OF  WAR^  COr.Nr.?  PCI 


LOWED 


PARAMETER  (NWCPDIK*  (l^PDIK  Is’Li 
C 

C  NUMBER  OF  SURFACE  CORNER  POINTS  ALLOWED 

PARAMETER  (NSCFD:m=  (NSFDIM  l/*2i 
r 

C  NUMBER  OF  EDGE  PANELS  ALLOWED  ON  A  PATCH 


PARAMETER  (NSPDIM  =  NEPDIK  ’  4) 

C 

ctnin  TiUinber  of  viscous  data  points  to  b€  rsad  in  3/26/53 
c 

parameter  (nvpts  =  30) 

DIMENSION  DUEIC (NSPDIM) . 

VNP(  NSPDIM), 

SORSIC  {NSPDIM) 
ctnm  RLXFAC  added  2/E/S3 


COMMON/  CONST 


COMMON/  SOLUTION  / 


COMMON/  PATCHES 


COMMON/  SPANEL 


COMMON/ 

COMMON/ 

COMMON/ 

COMMON/ 


INTERNAL 

TSTEP 

NUM 

ONSET 


COMMON/  PRINT 


COMMON/  SCFFILES 


ctnm 

ctnrr. 


COMMON/ 

VISCOUS 

dimensions  increased  to  3C  3/26/53 


UNSTDY 
added  f 


PI,  EPS,  FOUR PI,  CBAR, 

SSPAN,  SREF,  RM?X,  RMPY,  RMF2, 

MAXIT,  SOLRES. RLXFAC. 

PCORS,  RFF 

SIG (NSPDIM),  DUEiKSPDiM),  PDUBtNSPDIK) , 
WDUE{NWPDIK) ,  VXtNSPDiK),  VYiNSPDIM;, 
VZJNSPDIM),  VXRvNNPDiM),  \^*R (NNPDIK) , 
V2R{NNPDIM) .DIAGiNSPDiM) . 

RHSV{NS?D:M) ,  VNORMALtKSPDIK) ,  CPDUB (NSCPDIM) 
/  :dent(Npdik) ,  ipan(Npdim),  klass(npd:k) . 

KOMP (NPDIM) .  LPAN^NPDlMi .  NCOL{NPDIM) , 
NPANS.'NPDIM),  iroOWjKPDIM) 

XCiNSPDIK),  YCtKSPDIK),  ZCJNSPDIMl, 

PCS  (3, 3, NSPDIM)  ,  AP.EAiNSPDIK)  ,  P?F(NS?DIK), 

cpsx{nscpd:m) ,  cpsy (NScpdik) .  cps2(nscpd:k) , 

ICPS^NPDIMi  .  KPTYP.'NSPDIM)  ,SMP/NSPD:m;  , 

SMg (NSPDIM) 

/  NC ZONE, NC2 PAN, CIDUB  ,VREF 
/  NTSTPS,  ITSTEP 

K  PAN ,  NPATCH ,  NWP AN ,  NWAJ^E ,  NCOKP .  NAS  SEK 
/  ALPHA,  ALDEG,  YAW,  YAWDEG, 

BETA, WIND (3, 3) . PHIDCT, THEDOT, PSIDOT, 

COMPOP , SYK , GPP . VINF, VSOUND 
/  *rfSTINr'»  *jSTOUT,  w^TGEC,  i^SIT'^AB,  ,jSTWAX, 
LSTFR2,  LSTCPV  .LSTHLD,  LSTJET 
/  >7P«/OT,  uDUB«C, 

CSCRIC,  IKU 

/  okega;3,io),  vtr.3,:0),  dtstep 
iteration  with  vieocus  data  1/26/53 


COMMON/  VISCOUS  /  IVISCS , IDENTV (NPDIK, , IVPRNT, NVISC. 

♦  NPVMAXdO)  ,ALP2D(iC, nvpts)  .  CL2D(  10, nvpts) 

CD2D(10, nvpts)  ,  CK2D  (10,  nvpts)  .ALPZROCC) , 
f  rhsinc (NSPDIM) 

ctnm  added  for  viscous  normal  velocity  2/5/53 
real  \T2new(napdir.) ,  vfxnewtnspdim) 

LOGICAL  SYK.GPR 
REWIND  JSORIC 
REWIND  JDUBIC 


SET  UP  THE  CURRENT  FREESTREAM  VELOCITY  VECTOR 
KKP  =  1 

DO  10  NP=1. NPATCH 
VFX  *  VFRd.KMP) 

VFY  =  VFP  f  2 . KM?  > 

VF2  =  VFR(3.KM?; 
vcalssqrt (vfx'vfx+vf2*vfz) 
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n  n  r> 


crnn  ad«  ^rje  increTTier.t  in  alpha  zc  t.n«  cjirem  FHS  veccor  2/ 


do  7  j xipan  inp) . Ipan { np : 

VFZnewt  j  )  =vinf »  (-sin ,  asm  v-VF  2 'vinf  ‘  -  rhsinclj} 
vfxr.ew(  j  ;  xvinJ *  i -cos  .  acos  ; -vix/ vmi  i  -  rr.sinc -.j  , 

continue 
end:  f 

OMEGAM  =  OMEGAC.KMP’ 

CiSGAY  =  OMEGA  ;  2,  KM  P; 

0MEGA2  =  0MEGAi5,KM?, 


rINL  COMPCiNEKT  Or  FREESTREAM  VEOOCITV  NORKAI.  xZ  sACH  rAMr,L 
ANY  PRESET  NORMAL  VELOCITY  FOR  EACH  PAl-JEL 


DC  I  K=I?ANiN?; .L?AN(N?: 
a  PC£(l,3,Kj 
YK  =  PCS (2. 3, K) 

2N  =  PCS:5,3,K) 

YRX  =  yC(K)  *  PCS. 3, 3. K;  -  2CvK.‘  •  ?CS;1,3,K) 

VRY  a  2C{K)  *  PCS(1,3>K)  -  XC[K^  »  PCS(3,3,K) 

VR2  a  XC{K)  *  PCS(2,3,K)  -  YC(K)  •  PCS{1.3,Kj 

ctnni  VF2  changed  for  viscous  data  2/5/53 

i  f  ( ix'prnt .  eg .  1 )  then 

VNP(K)  *  VNORKAL(KJ  VFXnew(k}  *  >:n  VTY  •  YN  * 
-t-  »  2K  OMEGAX  -  VRX  +  OMEGAY  *  VRY  OMEGA2 

else 

VNP{K)  =  VNORKAL(K)  -  VFX  •  XN  V?y  •  Yk  *  VF2  • 
♦  OMEGAX  -  VRX  +  OMEGAY  -  VRY  ,  OKEGAZ  *  VR2 

endif 


SET  SOURCE  VALUE  FOR  EACH  PANEL 


IF CDENTINP)  .NE.3)TKSN 
SIG(K)  *  VNP(K) /FOURPI 

ELSE 

s:g(K)  «  c.o 

ENDIF 

£  CONTINUE 
10  CONTINUE 


C  COMPUTE  THE  INITIAL  RIGHT  HA.‘C  SIDE  VECTOR 
C 

DO  2C  NP*1,NPATCH 

DC  3C  J*:pAN(NP) ,LPAN(NP) 

IF  1 NCZONE . GT . 0 ) THEN 

READ(JDUBIC; (DUBIC{K; ,Kxl ,NPAN) 

END  IF 

READ(JSORIC)  iSORSICIK) ,K.1,NPAK} 

EC  s  0.0 
DC  4C  K=1,NF'AN 

IF ( NCZONE .GT. 0 .AND . K. EQ .NC2PAN; THEN 
EJ  =  EJ  -  C2DUE  •  DUEICIK; 

ELSE 

EJ  =  EJ  *  siGiK)  »  sop.sic;k; 

EOTIF 

40  CONTINUE 

RHSVtJ}  x  EJ 

IF{IDENT{NP) .E0.3:BKSV{J)  =  EJ  -  VNP(J) 
30  CONTINUE 
20  CONTINUE 

REWIND  JSORIC 
REWIND  JDUBIC 

601  format (2x. i3, 3x, 6 (2x. flO.5) ) 

RETURN 

END 


AND  ADI  Tu 


VT2new{)c) 
•  VR2 

2N 
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Appendix  G. 

Subroutine  SEARCH.F 


:eck  search 

S’JBPCL'TINE  sear: 


:h  ,  jrr.ax,  calp;  ,  cl .  alrac 


C  PURPOSE: 

c 

c 


searches  through  ar.  oraerec  set  of  pcirts  for  the  tc:r.t  :-st 
greater  than  the  input  value.  perforTTis  a  linear  interpolation 
between  these  two  points  and  returns  the  interpolated  value 


C  CALLED  EY:  VISCDATA 


C  E>:TEP.KAL  RErERENCES:  NONE 

C  ENVIRONMENT:  VAX/VMS  FORTRAN, CRAY  CRT""  FOPTRAK, 

C  MACINTOSH  DCM  MACTRAK  PLUS  3.0 

C  AUTHOR;  Thomas  N.  Mouch, 

C  KU  FRL,  University  of  Kansas,  Lawrence.  KS  66045 

C  DEVELOPMENT  HISTORY: 

C  DATE  INITIALS  DESCRIPTION 

C 

C . 

C 

c 

C  CODE  DIMENSIONING  PARAMETERS 
C 

C  NUMBER  OF  SURFACE  PANELS  ALLOWED 

PARAMETER  (NSPEIM  =  4000) 

C  NUMBER  OF  NEUMANN  PANELS  ALLOWED 
C 

PArAMETEP  (NNPDIM  *  50) 

C 

C  NUMBER  OF  PATCHES  ALLOW’ED 

PARAMETER  (NPDIK  =  20) 

C 

C  NUMBER  OF  BASIC  POINTS  ALLOWED  FOR  SECTION  DEFIKITiON 
C  ALSO  NUMBER  OF  SECTIONS  ALLOWED  PER  PATCH; 
r  .ALSO  NUMEEF  OF  ROWS  OP  COLUMr:S  -  1  ALLCWTC  ON  A  PATCH' 

C  CAUTION:  DC  NOT  SET  THIS  PAPAMETEP  TC  LESS  TH.AN  5C' 

PARAMETER  (NEPDIM  =  IOC) 

-  ....*42£R  OF  WAKE  PANELS  ALLOWED 


PARAMETEP  (NWPDIM  *  1500) 

C  NUMBER  OF  WAKE  COLUMNS  ALLOWED  ON  EACH  WAr3 
C 

PARAMETER  (NWCDIM  *  50} 

C  NUMBER  OF  WAKES  ALLOWED 

PARAMETER  (NWDIM  *  50) 

C  NUMBER  OF  SCAN  VOLUMES  OF  EACH  TYPE  ALLOWED 

PARAMETER  [NSVDIM  =10) 

C 

C  NUMBER  OF  POINTS  PER  OFF-BODY  STREAKLIN-E  ALLOWED 
C 

PARAMETER  (NSLPDIM  =  lOOC) 

C  SUITER  OF  GROUPS  OF  PANELS  DN.  WHI?:-:  rMN'CrPC  NIPMAL  VELTCITV  IS  PRESCPIEED 
PARAMETER  INVELDIM  =  200) 
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C  N^-.^EER  OF  LINES  AT  A  TIKE  TO  EE  REAI  IN  FOR  THE  INFLUENCE  CIEF.  KAI 
C  IN  T>!Z  SOLV'ER  ROUTINE  ;3UFFEREL  INFVT  FRCN  THE  SCRATCH  FILE 
C  i  L/a'JTION:  DO  NOT  SET  LARGER  THAN  ONE  IT's'LESS  VOL  ARE  SURE  VCL  HA\T 
C  ENOUGH  MEMORY  TC.  KANILE  BUFFEREO  INP'JT  . 

FARAMETEP  !  MATB'JF  =  1  : 

C  NUMBER  OF  WAi'X  CORN'Er  POINTS  ALLOWEI 

PARAMETER  ( NWCPDIM=  (NWPDIM  * 

C  NUMBER  OF  SURFACE  CORNER  POINTS  ALLC/^.E:: 

C 

PAR.AMETEP  ;NSC?EIK=  .NSPDIK  *  l.  ’L: 

C  NUMBER  OF  EDGE  PANELS  ALLOWED  ON  A  PATCH 

PARAMETER  {NEPDIK  =  NBPDIM  -  4; 

ctnir.  n'Jir.ber  of  viscous  data  points  to  be  read  in  3/26/S2- 
c 

para.tieter  (nvpts  *  30) 

real  dalpi (nvpts) , aipact, cl (nvpts) 

ctnir.  initialite  the  counter 


ctnr.  set  the  flag  showing  a  value  hasn't  been  found 
iflagsO 

20  continue 


ctrjr.  test  to 


Lf  the  current  value  is  greater  than  the  desired  value 


;f  <da*p:  :k)  .gt.alpactuher, 

ctnff.  if  it  is  greater,  then  if  you  have  cor^pared  mere  than  one  value, 
c  interpolate 

ifik.gt.l)  then 

valulsdalpi  :v.: 
valulsdalpi  '.k-D 

scale* (alpact-vaiul) • . vaiul^valuC . 
cl calcscl  ;k*l scale*  *  cl (k; -cl . k- 1  . 

ctni:i  a  point  has  been  found 


ctnir.  if  It  isn't  greater  andon.y  one  va^ue  corr.pared. 
ctnn.  you're  not  in  the  data  range, return  the  lowest  value 


write;?, ’out  of  range  low,  setting  rr.inir.ur ' 


ctnffi  a  point  has  beer.  fou.nd 


iflag*! 


ctnrr.  if  you  have  compared  all  of  the  values,  then  cut  of  range  high 
i f (k.eq. jmax) then 

write'S, *: ’out  of  range  high,  setting  max’ 
cl calcsci i jmax) 


ctnm  a  point  has  been  found 


i flagsl 
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Appendix  H. 

Subroutine  VISCDATA.f 

*:ECK  viscdatic 

SUBROUTINE  Viscsa-a 


I  PURPOSE:  evaluates  THE  CORRECTIONS  RECUIFES  TT  THE  SECTICNAL  LIFT 

C  COEylCIEKT  TC  INCLUDE  VI  SCOTS  EFFECTS  IN  THE  INVISCIC  ICTHOD 

C  CALLED  EY:  PMARC 

C  EXTERNAL  REFERENCES:  SEARCH,  SOLVER , WAKDUE . T'CEUKANK.  AERODAT 

C  EI^IRONMENT:  VAX/VKS  FOPTRAN,.CRAY  CFT'I  FORTRAN, 

C  MACINTOSH  DCM  MACTRAN  PLUS  3  - C 

C 

C  AUTHOR;  Thomas  N.  Mouch, 

C  KU  FRL,  Ur,iver6iCy  oi  Kansas,  Lawrenca.  KS  66C45 

C 

C  DEVELOPMENT  HISTORY: 

C  DATE  INITIALS  DESCRIPTION 

C . 

c 

C  CODE  DIMENSIONING  PARAMETERS 

C  NUMBER  OF  SURFACE  PANELS  ALLOWED 
C 

PARAMETER  (NSPDIM  «  4000) 

C  NUMBER  OF  NEUMANN  PANELS  ALLOWED 
C 

PARAMETER  (NNPDIK  «  50) 

C  NUMBER  OF  PATCHES  ALLOWED 
C 

PARAMETER  {NPDIK  *  20) 

C 

C  NUMBER  OF  BASIC  POINTS  ALLOWED  FOP  SECTION  DEFINITION 
C  (ALSO  NUMBER  OF  SECTIONS  ALLOWED  PEP  PATCH- 
C  (ALSO  NUMBER  OF  ROWS  OR  COLUMNS  -  2  ALLOWED  ON  A  PATCH! 

C  CAUTION:  DO  NOT  SET  THIS  PARAMETER-  TO  LESS  THAN  50- 
C 

PARAMETER  (NBPDIK  =  100 1 

C  NUMBER  OF  WAKE  PANELS  ALLOWED 

PARAMETER  (NWPDIK  =  1500} 

C  NUMBER  OF  WAKE  COLUMNS  ALLOWED  ON  EACH  WAi’.E 

PARAMETER  (NWCDIM  =  50) 

C 

C  NUMBER  OF  WAKES  ALLOWED 
C 

PARAMETER  (NWDIM  =  50) 

C 

C  NUMBER  OF  SCAN  VOLUMES  OF  EACH  TYPE  ALLOWED 
C 

PARAMETER  iNSVDIM  *  10) 

C 

C  NUMBER  OF  POINTS  PER  OFF-BODY  STREAMLINE:  ALLOWED 
C 

PARAMETER  (NSLPDIM  =  1000) 

C 

C  NUMBER  OF  GROUPS  OF  PANELS  ON  WHICH  NON2EPC  NORMAL  VELOCITY  IS  PPESCHIBHD 
PARAMETER  iNlTLDIM  =  200) 
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r  KUKEEF  OF  LINTS  AT  k  TIME  TC  Hr.  REAI  IN  rTF  THE  :NrL'-r.NC 
C  IK  THE  SCC'TF  ROi-TIKE  .E'JFFEREL  INrvT  rrC"  THr  STR.-.TTr.  r 
C  I'CATTION:  DC  NOT  SET  LAH'SEF  THAN  ONE  TNLESS  ySL*  ARE  SUn 
C  H'IDUGH  MEMORY  TC^  HAIOLE  BUFFERET  IKPL’T. 

C 

PARAMETER  IKATB'JF  = 

C  KUMEEF  OF  WAKE  CORNTR  POINTS  ALIOWEI 

PARAMETER  (NWC?DIM= INWFDIK  >  L,*!; 

C  NUMBER  OF  SURFACE  CORNER  POTNTS  ALLOWEO 
r 

PARAMETER  ( NSCPETM* (NSPOIM  ^  1,*2: 


C  NUMBER  OF  EDGE  PANELS  ALLOWED  CK  A  PATCH 
C 

PARAMETER  iNEPDIM  =  NBPDIK  '  4; 

ctnin  number  ot  viscous  data  points  to  be  read  in  3/26/93 

parameter  (nvpts  *  30) 
c 

c  NUMBER  Or  VISCOUS  ITERATIONS  ALLOWED 
c 

PARAMETER  (itparm  =  50) 


ctnm  RLXFAC  added  2/5/53 
COMMON/  CONST  / 


SSPAN. 

KAXIT, 

POORS, 


EPS,  FOUrPI,  CBAR, 

SF.ZF,  RKPX.  RMPy,  RMP2, 
SCLPSS.RLXFAC. 

RF? 


ctnir.  added  to  Iterate  a  solution  with  viscous  data  1/15/53 
ctnir.  updated  to  include  section  draj  data  2/22/53 
ctnm  updated  to  include  section  moment  and  last  pass  info  3/19/93 
ctnmi  updated  to  include  section  lift  data  5/23/93 

common/  iterate  /COLCLS {NPDIM,NEPDIM) ,COLCDSkNPD:K,NBPD:M) , 

+  COLCKS  (NPDIM.N-BPDIM)  ,TCLS,TCDS. terns, 

♦  dalpha  (npdin-,r.bpdim)  ,cdldptinpdiir.,nbpdiin) , 

crr.ldpt  (npGim,nbpdim) ,  last,  cl2dpt  (npdiff.,nbpdim) 


COMMON/  NUM 
COMMON/  ONSET 


/  NPAN , NPATCK ,  NWPAN . NWAKE , NCOMP , KASSEK 
/  AL  PH A , AL  DE  3 , YAW , YAWDE3 , 

BETA,  WIND ; 3 . 3  ;  ,  PHIDCT,  THEDGT,  PSIXT, 
COMPOP . SYM , 3PR , VINT, VSOUND 


COMMON/  PATCHES 


/  IDENTINPDIK) , 
KOMPtNPDIM, , 
NPANS  sNrDIM,  , 


IRAN  (NPDIK)  ,  r.LASS  {NPDIK)  . 

LPANiNPLiM),  ncol;nfd:m;, 

IsROW  (NPLIM) 


/  SIGiNSPDIM,,  D'U3:NSPriM)  ,  PDUE {KSPDIM)  . 
WDUB(NWPDIK) ,  VXfNSPDIK).  \^!NS?D:M), 
vz.'NSPDIm;  ,  vxR  [kn'PDik:  ,  \tf(NNPDIm;. 

V2R (NNPDIM, ,DIA3(KS?DIK) , 

RHSViNSPDIK) .  VNORKALiNSPDIKj ,  CPDUB ( NSCPDIM} 

ctnir.  VISCOUS  added  for  iteration  with  viscous  data  1/15/53 
ctniTi  dimensions  increased  to  30  3/26/53 


COMMON/  SOLUTION 


COMMON/  VISCOUS  /  IVI SCS , IDEN7V (NPDIK) , IVPRKT.NVI SC , 

NPVMAXdOj  ,ALP2D(1C, nvpts)  ,CL2D(10  nvpts), 
CD2D( 10. nvpts) , CK2D{ 10. nvpts) .ALPZROtlC) , 
rhsinc (NSPDIKJ 


real  alxfer (nvpts) , clxfer (n\^ts ; , cdxfer :nvpts) .cmxfer (nvpts) 
real  cldi  f  f  i  itpanr.)  ,clstor  (it  pa  nr.)  .castor  (itparm) . 

♦  cldi fact ( itparm) , emstor (itparm) 

radcon=:60 . /pi 
rixcld  s  rlxfac 


ctnm  initialize  a  flag  to  show  we  have  convergence  and  are  rr.a'xing 
ctnir.  the  last  pass 

last  =  0 

write(l3, •) ’alpha  s  *, alpha al deg  *  ’.aldeg 
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1  f  i  compof.  .ec.  1 when 

c-nn’.  -1  *  coir.pressitle  calcul^ation,  spp^y  Franawl -Glaueri  ccrrect 
clsicp£=;2.*  pi ./beta 

else 

clslcpea2.'*  pi 

endif 

write  {12,*)  ‘  RLXFAC  =  ' ,  P1.XFAC 
ctnn.  initialite  the  count  for  nur.ber  cf  ci  iterations 


ctniTi  set  a  flag  for  whether  tc  use  a  relaxation  factor  cr  not  bas 
c  on  is  alphair.ax  is  exceeded  4/16/53 

irelax  *  0 

5  continue 

ctnrr.  initialize  the  count  for  panel  location 
k=l 

ctnir.  count  the  nuaber  of  iterations 
itclsitcl*! 

ctniti  check  tc  see  if  solution  has  converged 
if  {last.ec.O)  then 

ctnir.  set  a  limit  on  nuiriber  of  iterations 
if (itcl .gt . itparm)  then 

writ€\l3,*)  'Maximum  number  cf  iterations  exceeded,  Old 
.cldifft 
last  s  1 
goto  "0 
endif 
endif 

ctnir.  initialize  delta  alpha  for  first  pass 

if  ; itcl. eg. 1)  then 

do  1C  npit=l,npatch 

do  11  ncitsl, ncol {npit) 

dalpha (npit ,ncit) *0 . 

11  continue 

10  continue 

endi  f 

do  10  np=l,npatch 

ctnir.  added  to  try  tc  "expedite*  conv'ergence  on  the  tail  4/16/53 
c  thus  using  a  different  relaxation  factor  on  tail(  pactch  *2) 

if  inp  .eq.  2)  then 
rlxfac  =  1.  •  rlxfac 
else 

rlxfac  s  rlxold 
endi  f 

ctnm  if  a  wing  patch,  modify  the  circulation  for  the  2-d  data 

if  (ident (np) .eq.i)  then 
ivdatasidentv {npj 

ctnm  use  the  proper  column  cf  alpha  and  cl2d 

do  22  itran=l , npvmax (ivdata) 

alxfer (itran) *alp2d( ivdata, itr an) 
clxf er (itran) scl2d( ivdata, it ran, 
cdxfer ( i tran) scd2d ( ivdata, it ran) 

OT.xfer  !  i  tran )  scin2d  (ivdata ,  itran: 

22  continue 

writeilS,*)'  k  alphae  Cl ;3*d)  cl (2-d) 

♦  delta  a* 

write'll,*.  ' _  _  _ _  _ 
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do  21  nc=l , ncci (np, 
clraciosColclE  ;np,  nc;  /cZ£l::re 
i f t cirat io .gt . 1 . C ,  when 

write(l3,»)  ‘clratlo  >  l.C* 
clracio  *  C.99 
endii 

Cwnrr;  compute  alpha/geometric  -  alpha/ir.duce  ir.  degrees,  due 

alpef  f  »  ( asin  < cirat io) -rdaipha  .np , nc.  ’radccn-^alpzrc  i 
if (alpeff .gt.aldeg)th€n 

writeaj.*/  'alpeff  >  geometric  alpha' 
alpef faaideg 
endif 


if  {alpeff  .gt.aixf€r(npvrrva:<iivdata'  <  then 
alpef  f=alxfer  (npvinax  ( ivdata  ■  ) 
irelaxsl 
endif 

if (alpef f . It .alxfer (1; ; aipef f=alxfer  vi^ 

ctnrr.  lookup  the  2-d  cl  for  this  alpha 

call  search (npw.ax  (ivdat a) , alxfer.  clxfer, alpef  f , 
cl2dpt  (np.nc)  ) 

ctnin  lookup  the  cd  and  cir.  only  if  this  is  the  last  pass 
if{  last. eg. 1)  then 

call  search (npvTTiax (ivdat a)  .alxfer, cdxfer, alpef  f, 

*  cdldpt (np.nc) ) 

call  search (npvn.ax(ivdata)  .alxfer, cmxfer, alpeff , 

*  cm2dpt (np.nc) ) 
endif 

ffactor*cl2dpt  (np.nc)  /colds  ;np.riCj 

ctnir.  added  to  mimic  Ian's  program  1/25/53 

if {abs  V col els (np.nc) ) . It .C .OCl . ffacter*! . 
if (f factor .gt. 1.4) f factor* 1 .4 
if(ffactor.lt.-1.4)ffactor*-:.4 
fsinasf  factor*  sir.  (alpha) 

if iabs (fsina) .gt . 1 . ) fsinaaC . f£»f sina  afcs ;f sina: 
ctnir.  dalpha  is  in  radians 

dalpoid=dalpha (np, nc) 
dalpnew=alpha  asin(fsina) 
if ( i relax. eq.O) then 

dalpha (np, nc) » (l-rlxfac) *dalpcld  »  rlxfac’dalpnew 
else 

dalpha inp, nc) sdalpnew 
irelaxsO 
endi  f 

write  ( 13 . 600 )  nc,  alpef  f ,  cold  s  f  np  .nc; 

-*•  .clldpt  .'np.nc; .  f  factor ,  dalpna  .np.nc .  •radeen 
do  30  nrsl,nrow:np) 


ctnm  dalpha  is  'overrelaxed'  overall  by  a  factor  of  1.1 

rhsinc(k) »1 .l*dalpha (np.nc / 
k*k-^l 
continue 
continue 
else 

ctnir.  if  not  a  wing  patch,  set  the  circulation  increment  to  zeri 

do  40  nc*l , ncol (np) 
do  50  nr*l , nrow (nc) 
rhsinc (k) *0 . 

K=k*l 

50  continue 

40  continue 

endif 

2C  continue 
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call  wak;nfi 
call  solver 


to  iOCKUp 

ivdata: 
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Call  wakdub 
Call  near.ann 
clold-ccls 
cdoic=tcds 
cmclcstctr.s 

"C-  Cali  aerodat 

i 1 ; itcl .ec. 1 ) Chen 
clstcr :  izcl  !•  =cl  cJ  d 
cdsccr : itcl 1 =cdclc 
cn'.sccr  i  itcl ;  =cinold 
end'  * 

cldi  f  f  ;  i  tcl-rl .  =abs  i  clcld- eels ;  -atz  '  clcld 
cldifacc  I  iccl-*-!  /  =  1  clold-tcls ,  /dole 
ctnr.  next  chree  variables  are  just  fer  output 
clstcr  ( itclfl :  =tds 
castor  I  itcl'^1 )  =tcds 
emstor  ( itcl-^1 )  =tcms 
ddif  ft=cicif  f  ( itcl-^1 ) 

vrite{i;,’>  =  '.iccl,'  %  clcir;  =  •  ,cidif  fc'lOO  . 

i;:r.ax=itcl 

ifiiast.  eq.  1)  goto  80 

ctruri  if  change  in  CL  less  than  0.3%  reduce  rlxfac  to  prevent  ■chatter* 
c  if (cldifft.lt .0 .003)rlxfac=0.1-rlxfac 

ctniri  if  change  in  CL  less  than  0.5%,  do  another  iteration 

if  (cldif ft .gt . C . 005)  goto  5 

goto  5 

80  continue 

do  90  i=i ,  itir.ax-1 

write (13, 602 )  i-1 .cldifact (i) .clstor lii ,cdstor ii) . emstor ii) 

90  continue 

ctniT.  reset  the  last  flag  when  finished  with  vtscous  calculations  4/17/93 
last  •  0 

600  format(i:,3x,5(3x,f5.5; ) 

601  form.at(2x,i3,5x,fe.3,2l2x,f8.3) ) 

602  f  onr.at , 2x,  i3 ,  5x,  f  8 . 4 , 3  (2x ,  f  8 . 4) ) 
end 
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Appendix  I. 

Subroutine  WAKINFL.f 


•DECK  WAKINrL 

SUBROUTINE  WAi'JN? 


C  PURPOSE:  CALCULATES  THE  WAK^  POTENTIAL  INFLUENCE  AT  THE  SURFACE  CONTROL 

C  POINTS  AND  COMBINES  THESE  KITH  THE  SURFACE  AND  ONSET  FLOW 

C  IN  ASSEMBLING  THE  COMPLETE  MATRIX  AT  EACH  STEP 

C 

C  CALLED  EY:  PMARC 

ctnffi  length  added  to  scale  the  wake  doublet  influence  for  the  first  wake 
c  column,  therefore  don't  need  wakes  from  the  body  4/I5/9j 

C  EXTERNAL  REFERENCES:  IDUBPOT. PTDUBPOT, RHS. DISTANCE. SCHEME, length 

C  EN\'IRONMENT:  VAX/VMS  FORTRAN,  CRAY  CFT77  FORTRAN, 

C  MACINTOSH  DCM  MACTRAN  PLUS  3-0 

C 

C  AUTHOR:  Dale  Ashby, 

C  MS  247-2,  NASA  Ames  Research  Center,  Moffett  Field,  CA.  5-4035 

C 

C  DEVELOPMENT  HISTORY: 

C  DATE  INITIALS  DESCRIPTION 

C 

C . 

c 

c 

C  CODE  DIMENSIONING  PARAMETERS 
C 

C  NUMBER  OF  SURFACE  PANELS  ALLOWED 
C 

PARAMETER  (NSPDIM  *  4000) 

C 

C  NUMBER  OF  NEUMANN  PANELS  ALLOWED 

PARAMETER  {NNPDIK  =  50) 

C 

C  NUMBER  OF  PATCHES  ALLOWED 
C 

PARAMETER  (NPDIM  *  20) 

C 

C  NUMBER  OF  BASIC  POINTS  ALLOWED  FDR  SECTION  DEFINITION 
C  ;ALSO  NUMBER  OF  SECTIONS  ALLOWED  PER  PATCH; 

c  :also  number  of  rows  cp  columns  i  allowed  on  a  patch) 

C  CAUTION:  DO  NOT  SET  THIS  PARAMETER  TO  LESS  THAN  50! 

c 

PARAMETER  .'NBPDIM  =  IOC) 

C  NUMBER  OF  WAK^E  PANELS  ALLOWED 
C 

PARAMETER  (NWPDIM  =  15C0) 

NUMBER  OF  WAKE  COLUMNS  ALLOWED  ON  EACH  WAKE 

PARAMETER  (NWCDIM  =  50) 

C 

C  NUMBER  OF  WAKES  ALLOWED 

C 

PARAMETER  (NWDIM  =  50) 

C 

C  NUMBER  OF  SCAN  VOLUMES  OF  EACH  TYPE  ALLOWED 

PARAMETER  (NSVDIM  =  10) 

C 

C  NUMBER  OF  POINTS  PEP  OFF-BODY  STREAMLINE  ALLOWED 
PARAMETER  (NSLPDIM  =  1000) 
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C  NU!<BER  OF  GROUPS  OF  PANELS  OK  WHICH  NCNZEPC  NORMAL  VELOCITY  IS  PRESCRI 
PARAMETER  (NVELDIK  =  200) 

C  NUMBER  OF  LINES  AT  A  TIME  TC  BE  REAO  IN  FOR  THE  INFLUENCE  CGEF .  MATRIX 
C  IN  THE  SOLVER  ROUTINE  (BUFFERED  INPUT  FROM  THE  SCRATCH  FILE) 

C  (CAUTION:  DC  NOT  SET  LARGER  THAN  ONE  UNLESS  YOU  ARE  SURE  YOU  HAVT 
C  ENOUGH  MEMORY  TC  HANDLE  BUFFERED  INPITT.  : 

PARAMETER  {MATBUF  =  1) 

C  NUMBER  OF  WAKE  CORNER  POINTS  ALLat%TD 
C 

PARAMETER  (NWCPDIM* (NWPDIM  ^  l:»2) 


C  NUMBER  OF  SURFACE  CORNER  POINTS  ALLOWED 


PARAMETER  (NSCPDIK* (KSPDIM  -  i;-2; 

C 

C  NUMBER  OF  EDGE  PANELS  ALLOWED  ON  A  PATCH 


C 

ctnm 

c 


PARAMETER  (NEPDIM  *  NBPDIM  »  4) 

number  of  viscous  <3ata  points  to  be  read  in  3/2C/S3 


parameter 

DIMENSION 


(nvpts  a  30) 

£M?W£NWPDIM) , SORSI C :NSPDIM} , 
DUBIC(NSPDIM,MAT3UF' . XSE ( 4 ) , YSE ( 41 
COMMON/  SOLUTION  /  £IG(NSPDIM1,  DUBiNSPDIK),  PDUE (KSPDIKl , 
WDUB(NWPDIM) .  VX;KS?DIK1.  VYlNSPDIM', 
VZ^NSPD'IM),  VXR£NNPD:M),  VYBimPDIM'  , 

V2R (NNPDIK) ,D:AG(KSPDIM) , 

RHSV(NSPDIK) ,  VNCRMAL(NSPDIM) ,  CPDUB(NSCPDj 

xcinspdim:.  yc£NSPd:m).  2C(nspdim;, 

PCS(3,3,NSPDIM),  AREA(NSPDIM) ,  PFF^KSPDIM) , 
CPSX(NSCPDIM)  .  CPSV.'NSCPDIM),  CPS2 (NSCPDIM?  / 
ICPSJNPDIM) ,  KPTYPtNSPDIKl ,SKP(KSPD:mj , 

smq(nspd:k) 


COMMON/  S PANEL 


ctnm  RLXFAC  added  2/5/53 


COMMON/  CONST 


COMMON/  PATCHES 


COMMON/  TSTEP 

COMMON/  INTERr^i: 
COMMON/  NUM 
COMMON/  ONSET 


COMMON/  WAKES  / 


COMMON/  PRINT 


COMMON/  SCRFILES 


COMMON/  UNSTDY 


/  PI,  EPS.  FOURPI,  CBAR, 

SSPAN,  SREF,  RMPX,  PMPY. 

MAXIT,  SOLRES.  FL>:FAC, 

RCORS,  RFF 


RMP2, 


KLASS£N?D:M) , 
NCOL(NPDIM) , 


/  IDENT(NPDIM) ,  IPA.N INPDIK)  , 

KOMP(NPDIM),  LrAK(NPDIM), 

NPANS(NPDIM) .  NROW(NPDIK) 

/  NTSTPS,  ITSTEP 
.  /  NCZCN'E.NCDPAK,  C2DVH.VREF 
/  NPAN , NPATCH , NWPAN ,  NVAKE , NCOMP , NASSEM 
/  ALPHA, ALDEG. YAW, VAWDEG. 

BETA , W I ND { 3 , 3 . , PH I DOT ,  TrfEDOT , PS I DC  T , 
COKPOP , SYM , GrR , VINF , VSOUND 

nwcol(N”wd:m;  ,  nwpowucwdik)  .  iwpanmnwdim?  , 

LWPAN ; NW”  I M  t ,  : DENTW ' NWDI K : . 
KWPU(NWCDIK,NWDIM) ,  rwPLiNWCDIM,NWD:My , 
phiu(nwcd:m,nwd:k;  .  phiknwccim.nwdim;  . 
iflexw(nwd:k) 

/  LSTINP.  LSTOUT,  LETGEO,  LSTNA3,  LSTWAK, 
LSTFRQ,  LSTCPV  .LSTriLD,  LSTJET 
/  JPLCT,  JDUBIC, 

JSORIC,  IMU 

/  OMEGA(3,:0).  VFRO.IO),  DTSTE? 


ctnm 

ctnir. 


VISCOUS  added  for  iteration  with  viscous  data  1/26/53 
dimensions  increased  to  30  3/26/53 

COMMON/  VISCOUS  /  IVISCS, IDENTV (NPDIK) , IVPRNT, NVISC . 

NPVMAX(IO)  ,ALP2D;iO, nvpts)  ,  CL2D{1C ,  nvpts  I  . 

+  CD2D( 10, nvpts) , CM2D { 1 C , nvpts) .ALPZROJLOl , 

+  rhsinclNSPDIM) 

COMMON/  WPANEL  /  XCW;NWPDIK),  YCWfrJWPDIK)  ,  ZCWcNWRCIK), 

-  PCSW  ,3,3.  WFLIM .  ,  AREAW  ,  rCWP DIM  , 

*  PFrw  ,  NWPDIM)  , 

♦  CPWXiNWCPDIM,  ,  CPWy  (N-WCPDIM)  .  CPW2  JJWCPDIM)  , 
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rniiine 

4/15/9 


ICPW.'NWDIM- 

r  iKEKSI  ON  SWX  ;  5  /  .  SWY  ;  5  :  ,  SW2  :  5  J  .  ICPWSl'S  4 
ctnir.  variables  wptV  adaec  tc  hold  corner  pcini  informabicn  zc  deie 
c  scale  factors  for  firs*  wake  colurn  tC'  elir.inate  body  wake 

dimension  wpt>: :  5 ;  ,  wpty  !  5 }  ,  wp-tzir, 

LOGICAL  £YK,GPP,:?Fi,FAF 

CALL  RHS 

C  REWIND  TAPES  NEEDED  FOR  THIS  S'JBROUTIN’E 
C 

REWIND  JSORIC 
REWIND  IMU 
REWIND  JDUHIC 

C  COMPUTE  TriE  WAKE  POTENTIAL  INTLUENCE  AT  THE  SUFEACE  CONTROL  RDINTS 

ICTR  =  C 
KPCTR  :=  0 

I F ;  NPAN .  GT .  MA7BUF )  TriEN 
NBUF  =  KATBUF 
ELSE 

NBUF  =  NPAN 
ENDIF 

DO  10  NP=1,NPATCH 

ID  =  IABS(1DENT(KP) } 

DO  20  KP=IPAN(NP) ,LPAN(NP) 

C 

C  READ  IN  THE  SURFACE  POTENTIAL  INFLUENCE  COEFFICIENTS 
C 

IF(NCZONE.GT.O)TKEN 

READ(JSORIC)  {SORSIC(K; .K«1,N?AN! 

ENDIF 

ICTP  »  ICTP.  -  I 

IF ( ICTR .GT. NBUF.OR. ICTR .SQ. 1 ) THEN 
DO  25  I. 1. NBUF 

READIJDUBIC; ;DUBIC(K.I) .KsI,S?AN» 

25  CONTINUE 

ICTR  *  1 
ENDIF 
C 

C  IF  THERE  ARE  NO  WAKES,  SET  UP  THE  RIGHT  HAND  SIDE  VECTOR  AND  THE 
C  DIAGONAL  VECTOR.  MODIFY  THE  INTLUENCE  CCEFF.  MATRIX  FOR  INTERNAL 
C  FLOW  MODELING  IF  REQUESTED  IN  INPUT  DECK,  THEN  GO  TO  SOLVER. 

IF  ( IWAKE .  LT .  1 )  THEN 
RHSVIKP)  =  -F.HSV'KP) 

d:ag{kp)  *  DUEic ;kp,ictr) 

IF iNCZONE.GT. 0)  THEN 

CUBIC (NCDPAN, ICTR;  =  SORSI 
ENDIF 

IF  { ICTR .  EQ .  N3UF)  THEN 

WRITE /IMU; { (DUEICIK.KK) ,K= 

KPCTR  =  KPCTR  *  NBUF 

:f:  (Nfan-kpctr;  .ge-k?.tblt 

NBUF  =  KATBUF 
ELSE 

NBUF  -  NPAN  -  KPCTR 
ENDIF 
ENDIF 
GO  TO  20 
ENDIF 
KWP  =  0 
RHSSUM  -  0 
C 

C  STEP  THROUGH  THE  WAKES 
C 

DO  30  NWsl,NWAKE 

IDW  s  IABS;IDENTW(NW) ) 

C 

C  COMPITE  THE  INFLUENCE  COEFFICIENTS  OF  EACH  WAKE  PANTL  ON  ALL  THE 
C  SURFACE  PANELS.  SUM  THESE  INTO  THE  APPROPRIATE  INFLUENCE  COEFF. 

C  FOR  THE  SURFACE  SEPARATION  PANELS. 

C 

DD  40  NWCsi ,NWCOL(NW) 

DO  50  NWR*l,NWROW{NW) 
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KWP  =  KWP  1 

e  following  addec  to  scale  t 
column  of  the  wake.  This  a 
the  bodi'  4/:^  '93 

i f ( ( nwc  . eq . i ) . and . i nwr . gt . 1 ) • an 


e  aouoiet  effect  or.  tne  first 
iows  the  wakes  tc  be  deleted  from 


.  (np.ne.nw; )then 


ctnm 

c 


:oi 


wptx;i}  =  cpwx(kwp; 
wpty  ( 1 }  =  cpv.y  .  kwpi 
wpt  c  ( 1)  =  cpwz  '  kwp* ) 
wptx:2)  =  cpwx;kwp  ♦  nwrowinw) 

wpty  (2)  a  cpwy{kwp  nwrowvnw)  t- 

wptc;2)  =  cpwt,'kwp  *  nwrow.nw'  - 

wptx;3)  =  cpw>:ikwp  -»■  nwrowvnw) 

w’pzyfl'.’i  =  cpuy.'Vrwr-  •  nwrow*  nw;  ♦ 

wptZvj)  =  cpwc  r^wp  H.  nwrow.nw)  ♦ 
wptx(4)  =  cpwxOcwp.  *  1) 
wpty  •;  4 )  a  cpwy  ( kwp  i ; 
w’ptzi4}  =  cpw2  (kwp  1, 
wptx ;  5 }  a  wptx  (1  ;• 
wpty (5)  =  wpty:i; 
wptz (5)  a  wptCi 1) 

call  length (wptx, wpty, wpt2,wscal€} 
encif 
else 

wscale  =  1. 
endif 
:sY  =  1.0 
IGP  =  1.0 
DUBICW  =0.0 

dublcwi  used  to  sum  wake  doublet  effect  tc  first  column  w/c  body 
wakes  present 

dubicwl  =  0.0 
)  CONTINUE 


XC?  *  XC(KP) 

YCP  =  YC(KP)  »  ISY 

c  ground  effect 

if  {igp.eq.-D  then 
zcpx-2 .»height-2cJkp) 
else 

2CP  »  2C(K?)  •  IG? 

end  if 

CALL  D:STANCE(PFFW{KWP) .XCW(KWP} ,YCW(K<rfp; ,2CWtKWP’ , 
XCr,YC?,2CP,FAPi 
CNX  s  PCSW(1,3,KWP; 

CNY  =  PCSW(2,3,KWP) 

CN2  =  PCSW{3,5.KW?, 

IF (Far;  THEN 

IF(IDENT(NP) ,NH.3)THEN 

CALL  PTDUEPOT,AREAW{KWP) ,XCW{KWp) ,YCW:KWP) .ZCW(KWP) , 
CNX ,  CNY ,  CNL ,  XCP ,  Y CF ,  ZC? ,  CJK ) 

ELSE 

FJKX  =  XCc  -  XCWiKVCP.i 
PJKY  =  YCP  -  YCWtKWP; 

PJK2  a  2CP  -  ZCWir^JP) 

PN  =  PJlOi  •  CNX  ♦  PJKY  -  Cr-JY  -  FJKZ  •  CN2 
?JK  *  SQRT'FJrj:*»2  -  FJKyz  *  FvTKZ”2) 

VJKX  =  AREAW;rwp) • {2»PN-FJKX-FJF*»2*CNX) /PJK»*5 
VJKY  =  AREAWfKWP,  ’  {3*PN*FJKY-FJK’»I»CN’Y) /?JK'*5 
VJKZ  a  AREAW(KN?/ •  (3»PN*PJKZ-FJK»’-2»CN2) /FJK»-5 
EJK  a  VJKX*  PCS  a,  3,  KP;  *  VJftVPCS  (2 , 5  ,  KP) 

+  VJKZ  *  PCS(5,3,KP) 

CJK  a  EJK 
ENDIF 
ELSE 

CALL  SCHEME (NWROW (NW) , NWCOL (NW) . IKPAN JNW) , KWP . 

ICPw;nw;  ,  ICPWSUB; 

DO  60  1=1,4 

SWX(I)  =  CPWXdCPWSUBC)  ) 

swy::)  a  CPWY dcPwsDE.’i ) ) 
swzd)  a  cpw2;:c?wsi3(ij ; 

60  CONTINUE 

IF(IDENTiKP)  .N'E.3)THEN 

ctnm  wscale  added  to  pass  scaling  for  doublet  effect  on  first 
c  wake  column  4'lS/93 

CALL  IDUEPOT  wscale. SWX,SW1'.sW2.>:CW\kwp:  .VCW.KWp;  , 
ZCW  I  KWP  1  ,  CNX ,  CNl' ,  CNZ ,  XCF  ,  Y CF  ,  ZCP ,  CJK  ,  c  :  k  1  j 

ELSE 
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VJKX=0.0 
VJKY=C.O 
VJKZ^O-O 
DC  ::=i,4 
N£  =  II 

AX=XCP  -  SWX(NS) 

AY=YCP  -  SWYiNSi 
AI=2CP  -  SWZ(NS) 

IF:N£.EQ.4)N£  =  0 
BX=XCP  -  SWX(K£-rii 
3Y=YCP  -  SWY(N£^i: 

B2=2CP  -  SW2(N£-rl;- 
A=£QRT{A>:*AX  AY-AY  AI-A2j 
B=SQRT(EX-BX  ♦  EY-3Y  i-  BZ-B2) 

AVEX  =  E2-AY  -  BY-AZ 

k'JBY  *  AZ-EX  -  B2-AX 

AVB2  =  AX-BY  -  BX-AY 

A\^S  =  AVBX*AVEX  +  AY'EY-A’.TY  A\^2*A\32 

IF(AVES.LE.RCORS.OR. (A-A; . LE- RCCR£ .OR . 

+  (B-B) .LE.RCORS)GO  TC  70 

ADB=AX*BX  f  AY’BY  A2-BZ 
SCALE*  (A-^B)/(A-B-{A*B  ADB)  ) 

VJKXsVJKX+SCALE*A\'BX 
VJKY=VJKYfSCALE-AVBY 
V  JK2  *VJKZ-*- S  CALE*  AVB2 
70  CONTINUE 

EJK  »  VJKX*PCS(1,3.KP)  -f  VJKY-PCS (2 , 3 . KP}  + 

VJK2  *  PCS(3.3,KP) 

CJK  =  EJK 
ENDIF 
ENDIF 

DUBICW  *  DUBICW  *  CJK 

ctnir.  dubucwl  as  a  summing  variable  to  sum  the  effect  of  tbe  wake  doublets 
c  for  the  first  column  4/14/S3 

if(nwc.€q.:)  dubicwl  *  dubicwi  ♦  cjkl 
IF ( SYM . AND . ISY .  E2 . 1 ) THEN 
ISY  =  -1 
GO  TO  100 
ENDIF 

IF ( GPR . AND . IGP . ED . 1 ) THEN 
IGP  *  -1 
ISY  »  1 
GO  T3  100 
ENDIF 

IF  (NWR .  ME .  1 .  AND .  ITSTEP .  GT.  1 )  THEN 

RHSSUM  *  RHSSUM  ♦  DUBICW  *  WDUE(KWP) 

ELSE 

KU  .  KWPU{NWC,NW) 

KL  =  1>'?L(N'WC,NW) 

c  DUBICiKLMCTR)  *  CUBIC  iKU,  ICTR)  f  DUBICW 

c  DUBIC ;KL, ICTR)  =  DUBIC ;KL. ICTR)  -  DUBICW 

RHSSUM  a  RHSSUM  DUBICW*  '  PHIU  (NWC , NW: -PHILf  NWC,  NW :  ) 
cturr*  added  to  account  for  wake  changes  4/13 /S3 

i f  ( (nwc .eq.  1 )  .and .  (nwr .gt . I )  . and.  (np.ne.nw*;  ;  then 
DUBIC  (KU,  ICTRJ  =  DUBI C ( KLM CTR J  DUBICWl 

DUBIC (KL, ICTR)  =  DUBIC (KL. ICTR)  -  DUBICWl 
else 

DUBIC (KU, ICTR)  *  DUBIC (KU, ICTR)  ♦  DUBICW 
DUBIC (KL, ICTR)  *  DUBIC(KL, ICTR)  -  DUBICW 
endif 
ENDIF 

50  CONTINUE 

40  CONTINUE 

30  CONTINUE 

RHSVT  =  RHSV(KP)  RHSSUM 
RHSV(KP)  a  -RHSVT 
D:AG[KP)  a  DUBIC (KP. ICTR) 

I F ( NC20NE . GT . 0 ) THEN 

DUBIC {NC2PAN, ICTR)  *  SCPSIC (NCZPAN) 

ENDIF 

I F ( ICTR . EQ . NBUF } THEN 

WRITEdMU)  (  (DUBIC  (N.NN)  ,Na2  ,NPAN)  ,NN=1,NBUF) 

KPCTR  =  KPCTP  NBUF 
IF; (NPAN- KPCTR) . GE . MATEUF, THEN 
NBUF  MATEUF 

ELSE 
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Appendix  J. 

Sample  Input  Dataset  For  T-tail  Configuration 


This  dataset  highlights  the  changes  in  input  required 
to  run  a  viscous  case  with  different  viscous  datasets  for 
the  wing  and  tail.  Additions  to  the  input  are  in  bold 
type.  Input  dataset  is  called  "dataS."  (Large  type  is  not 
part  of  the  dataset ! ) 

fwh  alphosC ,  wake  def  =*►!,  l/2cosin€ 

i:EIN?2  LSTINF=^0,  LSTOUT=1.  :.STrRC-=l,  LENRUN=0 ,  iEND 

tEINP3  LSTGEO=0,  LSTNAE=C,  I.?TWAK=C,  L£TC?V=0.  L£TJET=C,  iEND 

rlxfac  is  a  relaxation  factor,  range:  0<rlxf ac<2 . 

Suggested  value,  rlxfac<0.5.  Assuming  the  tail  is  patch 
#2,  the  value  of  rlxfac  will  be  doubled  to  speed 
convergence  for  the  tail 

iEINP4  MAXIT=150,  SOLRES=0. OOOS,rlxf«c-0.12S  4ENr 

4BINP5  NTSTPS=0,  BTSTEP-2.0,  iEND 

4EINP6  R£YK=.0.0,  RGPR=0.0,  RFF=5.0,  RCORE=C.05,  S.END 

iviscs  sets  whether  viscous  calculations  are  performed 
default:  inviscid  case,  iviscs=0 

if  viscous  case,  iviscs=l  (2-d  data  required 
for  dataset  "drag.") 

Maximum  of  10  viscous  datasets  is  currently  set. 

iEINP?  VINF«1.0,  VSOUND.:::6.0,  UN:T=0,  COMPOP=O.C.ivl»c»»l  4END 

4B:Npe  ALDEG.2.0,  YAWDEG=0.0,  THEDCT=0.0,  PS:DOT=0.0,  PHIDOT=0.0,  4END 
4B:K?9  CBAR. .24606,  SREF*. 48436,  SSPAN. . 96424 , 

RMPX«. 86:21,  RMPY»0.00,  RMPZ=C.0C,  4END 

4B:NP10  NORSET»0,  NBCHGE«0,  NC20NE=0, 

NC2PAN=0,  C2DUE=0.0,  VREF=00.0,  4END 

4ASSM1  ASEMX=0.00,  ASEHY=0.00,  ASEK2=0.00, 

ASCAL=1.00,  ATOET^O.OO,  NOBEA=.5,  4ENB 

4C0MP:  COMPX=:  O.OOCO,  COMPY=  0.0000,  COKPZ=  0.0000, 

CSCA1,=  1.0000,  CTHET=  0.0,  NCBEC=  5,  4EIJB 

ivptch  tells  PMARC  which  viscous  dataset  (read  in  through 
"drag.")  is  to  be  applied  to  this  patch.  In  "drag.",  the 
angle  of  attac}^  range  is  assumed  to  increase  from  a  minimum 
to  a  maximum  (and  then  start  again  for  multiple  datasets) . 

A  maximum  of  30  angles  of  attac)c  per  dataset.  Order  of 
input  across  a  row:  a,  ci,  cd,  Cm.  The  moment  reference  is 
assumed  to  be  the  quarterchord .  If  the  reference  is 
different  the  value  of  xmref  must  be  changed  in  AERODAT.f. 
(This  could  all  be  changed  to  include  the  moment  reference 
as  part  of  the  input  in  "drag."  .)  Here  the  main  wing  uses 
data  from  the  first  viscous  data  set. 

6PATCH1  IREV-  0,IBPAT=  1 , MAKE=  0,KCOKP=  1,  KASS=  l.lvptcbal,  4END 
xain  WING 

4SECT1  STX=  0. 73618, STY=  0.09022,  STZ=  0.0000,  SCALE=  0.24606, 

AZF=  0.0,  THETA=  0.0, 

INr)ODE=  S,  TNODS»  0,  7NPS=  0,  TINTS*  0,  4END 

4SECT2  RTC=  0.1200,  RMC*  0.0400,  fPC*  0.4000, 

IPZW.'E*  2,  Tr;pc=  IE,  TINTC*  0.  lENI 

tSECTl  STX*  0.73818,  STY*  0. 96424, STZ*  0.0000,  SCALE*  0.24606, 

ALF-  0.0,  THETA*  O.C, 
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: NMODE=  0 . 


Tr,’GDS  = 


TNPf=  2C. 


The  horizontal  tail  uses  data  from  the  second  viscous 
dataset . 

4PATCH:  IkEVr  0,  IDPAT=  i,  MA}IE=  C,  KCOMF=:  1,  KASS=  1 .  ivptch-2 ,  iEI.T 

horiiCTjCal  rail 

4SECT1  STX  =  1.591i,  STY=  O.OO&G.  E'r2=  C.4:6£'7G,  SrA.GE=  C.16-i04, 

ALFi  0.0,  'rv:ETA=  C.C, 

INMODE=  E,  TNODS=  0,  TNPS=  0,  TINTSi  C.  4ENO 

4SECT2  FTC=  0.:200,  RMC=  0.0000,  FPO*  C.OOOO. 

:peake=  2,  TMPc=ic,  t:ktc=  o,  4E1" 

iSEc?;  ETj;=:  :.E?i:,  m-=o.36oep,  ete-  c.4Uf,  scaee=  .:£404, 

AEF=  0.0,  THE'rA=  C.C, 

:!JMODE=  0,  TNODS=  3,  TNPE=.  10,  TlNTEi  1,  4END 

4PAT0K1  :REV=  0,  IDPATi  2,  KAKE=  C,  KCOMFi  1,  HA££=  1,  4END 

;0£E 

4SECT1  STy.-  0.0000,  £71'=  0.0000,  £72=  0.0000,  SCALE=  0.0000, 

ALF=  0.0,  THETA=  0.0, 

INMODE=  1,  TNODS=  0,  '7NP£=  0,  7IN7£=  0,  OENO 


0.0000 

-1.0000 

0.0000 

0.1735 

-0.9845 

0.0000 

0.3420 

-0.5395 

0.0000 

0.5000 

-0.8660 

0.0000 

0.6425 

-0.7660 

0.0000 

0.7660 

-0.6425 

0.0000 

0.8660 

-0.5000 

0.0000 

0.5395 

-0.3420 

0.0000 

0.9845 

-0.1735 

0.0000 

1.0000 

0.0000 

0.0000 

0.9845 

0.1735 

0.0000 

0.9395 

0.3420 

0.0000 

0.8660 

0.5000 

0.0000 

0.7660 

0.6425 

0 .0000 

C .6425 

0.7660 

C.OOOO 

C  .5000 

0.8660 

0.0000 

0.3420 

0.9395 

0.0000 

0.1735 

0.9845 

C.OOOO 

0.0000 

1.0000 

0.0000 

iBPNODE 

7N0DE=  3, 

TNPC* 

8.  TINTC-  3. 

&SECT1 

STX=0. 00049 

,  STY* 

0.0000.  STZ* 

C.OOCC,  SCAZE*  .DCS42. 

ALF=  0.0. 

THETA= 

O.C, 

IN«ODE=  0, 

ITJCDS* 

0,  TNPS*  0, 

TINTS*  C,  &ENO 

Lszcri 

S7X=0. 00164 

,  STY* 

C.OOOC,  STI* 

C.OOCC,  SCAZE*  . 00965, 

ALF=  0.0, 

T>1ETA= 

C.O, 

INMODE=  0, 

■naoDS* 

0,  TNPS*  0. 

TINTS*  0,  iiEKD 

iPECTl 

S7X=C. 00328 

,  STY* 

0.0000,  STZ* 

C.OOCC .  SCAZE*  .01296, 

a:j-=  0.0, 

THETA* 

0.0, 

INMODE=  0, 

TWODS* 

0,  TNPS*  0, 

TINTS*  0,  &END 

£Sect: 

S7>:=0. 00984 

,  STY* 

C.OOCC,  STZ* 

C.OCOC,  SCAZE*  .02404. 

ALF=  0.0, 

THETA* 

C.O, 

:nmode=  0, 

TNOD3* 

0,  TN?£=  0, 

TINTS*  0,  &ENZ 

A  sect: 

STX  =  0. 02625 

,  STY* 

O.OODC,  STZ= 

C.OCGC.  SCAZE*  .CiSeS, 

ALF=  0.0, 

THETA* 

C  .0, 

INMODEs  0, 

TNODS* 

0.  TNPS*  C, 

TINTS*  C.  iETCD 

4.SECT1 

S7X=0 .04265 

,  STi’* 

C.OOOO,  STZ* 

C.OOCC,  SCAZE*  .04846, 

ALF=  0.0, 

THETA* 

0.0, 

INTIODE*  0, 

TOODS* 

0,  TNPS.  C, 

TINTS*  0,  fcZND 

&SECT1 

S7X=0. 07546 

,  STi'* 

0.0000,  STZ* 

O.OOOC,  SCAZE*  .06234, 

ALFr  0.0, 

THETA* 

O.C, 

:nmode=  0, 

INODS* 

C.  TNPS*  0. 

TINTS*  0.  &END 

&SECT1 

STX=0. 10827 

.  STY* 

O.OOOC,  STZ. 

O.OCOO.  SCAZE*  .C72C1, 

ALF=  0.0, 

THETA* 

0.0, 

INMODE-  0, 

TNODS* 

0,  TNPS*  0, 

TINTS*  0,  8END 

&SECT1 

S7X-0 .17388 

,  STY* 

0.0000,  STZ- 

C.OOOO,  SCAZE-  .08412. 

ALF-  0.0, 

THETA- 

0.0, 

INMODE-  0, 

TNODS* 

0,  TNPS-  0. 

TINTS*  0,  iEND 

4SECT1 

STX-O. 27231 

,  STY* 

C.OOOO,  STZ* 

C.OOOO.  SCALE*  .05022, 

ALF-  0.0, 

•IWETA. 

0.0, 

INMODE-  0, 

TTJODS* 

2,  TNPS*  5, 

TINTS*  0,  4END 

iSECTl 

STX-O. 73818, 

STY- 

0.0000,  STZ* 

0.0000,  scale*  .05022, 

ALF-  0.0, 

THETA* 

0.0, 

INMODE-  0, 

TNODS* 

3 ,  TNPS*  3 , 

TINTS*  0. 
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(.pATrHi  : 

KEV=  0, 

3,  C.  KCOMF 

=  1.  }LASS=  1 

U 

ncer  wing 

iSECT:  P 

TX=C. 73616, 

sTV:i  pt2=  :.c-oc:-. 

SCALE*  .09022, 

.LF=  0.0, 

THETA=  C . : , 

I 

NKODE=  I , 

TNODS=  C.  TK?S=  C,  TINTS 

=  0 ,  &rEND 

c  .cooc 

-1 .0000 

C.OOOO 

0 .1755 

-0.9845 

C  .0000 

c  .34:c- 

-0.9395 

C  .0000 

C  .  POOC 

-C  .8660 

0 . 0000 

c 

-C  .7660 

C  .0000 

C.766C 

-C.6425 

c.oooo 

C  .666C 

-0.5000 

C  .0000 

C  .  5395 

-C  .3420 

c.oooo 

G.&t45 

-C  . 1 73  5 

C  .0000 

:  .0000 

c.oooo 

c.oooo 

iEPNCDE  Z 

:node=  3, 

TNPC=  4,  TIKTC=  3. 

tEND 

iSECT;  STX^Z  .1299 , 

STy*  O.OOCC,  ST2s  c.cooo. 

SCALE*  -G9G22, 

? 

iLF=  C.O. 

TKETA=  C.C, 

;nmode=  1, 

Tt^O'DS=  C,  TICP£=  C,  TINTS 

=  C ,  &  END 

C-ODOO 

-1.0000 

C.oooo 

C.1735 

-0.9845 

0.0000 

C  .3420 

-0.9395 

c.oooo 

C.500C 

-0.8660 

0.0000 

C.6425 

-C.7660 

0.0000 

C.7660 

-0.6425 

c.oooo 

0.8660 

-C.5000 

c.oooo 

0.9395 

-0.3420 

0.0000 

C.9845 

-0.1735 

O.QOOO 

:  .0000 

-C.C233 

c.oooo 

iBPNOOE  TNODE=  3, 

iTv’pC;;  4,  t:ntc=  5, 

iSECT:  ST3!  =  C.7470, 

sry*  c.oooo,  st2=  c.oooo. 

SCALE*  .C9022, 

AEF.  0.0, 

THETA=  O.C, 

J 

iimODE.  1, 

TOODS«  0,  TNP£*  C,  TINTS 

;*  0,  &END 

0.0000 

-1.0000 

0.0000 

0.:735 

-0.9645 

c.oooo 

0.3420 

-0.5355 

c.oooo 

0.5000 

-0.6660 

c.oooo 

0.6425 

-C.7660 

o.oooc 

0.7660 

-0.6425 

c.oooo 

0.8660 

-C.SOCO 

c.oooo 

0.5395 

-0.3420 

o.ccoo 

0.5645 

-0.1735 

c.oooo 

1.0000 

-0.0605 

o.oooc 

6BPN0DE  TNODE.  3, 

It^PC*  4,  TINTCa  3, 

6END 

iSECTl  ST)i=0.7599, 

STi’*  O.OOOC,  ST2=  O.OOOC, 

SCALE*  .09022, 

ALF=  0.0, 

TriETA*  0.0, 

INKODE=  1, 

174005=  0,  TN?S=  0,  TINTS.  0,  4END 

C .0000 

-1 .0000 

0.0000 

0.1735 

-0.9845 

C  .0000 

0.3420 

-0.9395 

C  .0000 

0.5000 

-0.8660 

0.0000 

0.6425 

-0.7660 

0.0000 

0.7660 

-0.6425 

c.oooo 

0.6660 

-0.5000 

C  .0000 

0.5395 

-C.3420 

c.oooo 

0.9645 

-0.1725 

c.oooo 

1.0000 

-C  .0776 

c.oooo 

iBPNOEE  ' 

TUOuE^  3, 

TNPCr  4,  TINTC=  5, 

£END 

iSECTl 

STXsC .7773, 

STY*  o.oooc,  ST2s  0.0000, 

SCALE*  .C9G22, 

AuF.  0.0, 

THETA*  0.0, 

INKODE.  1, 

TNODS*  0,  7NPS=  0.  TINTi 

5=  C,  &END 

0.0000 

-1.0000 

0.0000 

0.1735 

-0.9845 

0.0000 

C.3420 

-0.9355 

0.0000 

0.5000 

-0.8660 

O.OOOC 

0.6425 

-0.7660 

C.OOOO 

0.7660 

-0.6425 

0.0000 

0.8660 

-0.5000 

0.0000 

0.9395 

-0.3420 

0.0000 

0.9845 

-0.1735 

0 .0000 

1 .0000 

-0.0776 

0.0000 

&BPNODE 

TNODE.  3, 

TNPC=  4,  TINTC*  3, 

4.  END 

tSECTl 

STX.O .7983, 

STY*  O.OOOC.  STZ=  O.COOO, 

SCALE*  .09022, 

ALF=  O.C, 

THETA*  C - C , 

ItmoCE.  1, 

TriOOG*  0,  TN?P=  0,  TINT: 

S*  0,  4 END 

0.0000 

-1.0000 

0.0000 

iENL 
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c  .:':3  5 

-C  .5845 

C .GOOC 

C  .342  0 

-  C  .9395 

c  .ooc: 

C  .r-000 

-C  .8660 

V.  .  D 00  w 

C  .642  5 

-C  .7660 

C  .0000 

:  .766C 

-C.6425 

C  .0000 

C  .8660 

-C .5000 

c.oooc 

'  .  c  2  9  5 

.3420 

C  .0000 

:■  .&64S 

-C  .1735 

0  .coco 

1  .  0  0  0  c 

-C .0687 

C .0000 

t^EPNCOE  TTJC 

DE=  3 , 

TNPC=  4,  T:i;7r=  &end 

iSECTl  STX 

=0.8215, 

STY=  O.OOOC,  ST2=  C-OOOO,  SCALE*  -09022. 

ALF 

=  C.C. 

TriETA*  C.C. 

INMODE=  i. 

TNODS=  0,  TNPS*  C.  TINTS*  C.  iEND 

C  .0000 

-1 .0000 

C .0000 

0.1735 

-C  .5845 

0.0000 

C  .3420 

-C  .  9355 

C  -OCOC 

C  .5000 

-0.8660 

C  .0000 

C  .6425 

-C  .7660 

0.0000 

C  .7660 

-0.6425 

0.0000 

0.8660 

-C.5000 

0.0000 

0.5395 

-0.3420 

O.OOOC 

C.S845 

-0.1735 

0.0000 

1.0000 

-0.C565 

0.0000 

tBPNODE  TNODE=  3 , 

TNPC=  4,  T:KTC=  3.  &END 

&SECT1  ST>t 

*0.8473, 

STY*  C.OOOC.  STZ=  C.OOOO,  SCALE*  .09022, 

ALF 

=  0.0, 

THETA*  0.0, 

INMODEs  1, 

TNODS*  0,  TNP£=  0,  TINTS*  0,  i^END 

0.0000 

-1.0000 

0.0000 

0.1735 

-0.9845 

0.0000 

0.3420 

-0.5395 

0.0000 

0.5000 

-0.8660 

0.0000 

0.6425 

-0.7660 

0.0000 

0.7660 

-0.6425 

0.0000 

0.8660 

-0.5000 

0.0000 

0 .5395 

-0.3420 

C.OOOO 

0.9845 

-0.1735 

0.0000 

1  .0000 

-0.0443 

C.OOOO 

4BPNODE  TNODE.  3 , 

TNPC*  4,  TINTC*  3,  4END 

4SECT1  STX 

.0.8732, 

STY*  0.0000.  STZ*  C.OOOC.  SCALE*  .05022, 

klS 

0.0, 

IHETA*  0.0, 

INMODEa  1, 

TNODS*  0,  TNPS*  C,  TINTS*  0,  iEND 

0.0000 

-1.0000 

0.0000 

C.:72£ 

-0.9845 

C.OOOC 

0.3420 

-0.5395 

C.OOOO 

0.5000 

-0.8660 

0.0000 

0.6425 

-0.7660 

0.0000 

0.7660 

-0.6425 

0.0000 

0.6660 

-0.5000 

0.0000 

C  .  9295 

-0.3420 

0.0000 

0.9845 

-C .1735 

0.0000 

i  .0000 

-0.0321 

0.0000 

iBPNODE  TNODE.  3, 

INPC*  4.  TIl.’TI*  3,  iEND 

4SECT1  ST)( 

:s0.8986, 

STY=  O.OOOC,  ST2=  C.OOOO.  SCALE*  .C9022 

ALF 

0.0, 

THETA*  C.C. 

INMODE*  1, 

TNCDS*  0.  TNPS*  C,  TINTS*  0.  &END 

C  .0000 

-1.0000 

0.0000 

C  .1735 

-C  .9845 

0.0000 

C  .3420 

-0.9355 

0.0000 

C.5000 

-0.8660 

c.oooc 

0.6425 

-0.7660 

C.OOOO 

0.7660 

-0.6425 

0.0000 

0.8660 

-0.5000 

0.0000 

0.9395 

-0.3420 

C.OOOO 

0.9845 

-0.1735 

0.0000 

1.0000 

-0.0221 

0.0000 

iBPNOOE  TNODE.  3, 

TTCPC*  4.  TINTC*  3,  4END 

iSECTl  STX 

;  =  0.9222, 

STY*  0.0000.  STZ*  C.COOG.  SCALE*  .09022 

ALF 

0.0, 

THETA*  0.0, 

INMODE*  1, 

TOODS*  0,  TNPS*  0,  TINTS*  0.  4END 

0.0000 

-1.0000 

0.0000 

0.1735 

-0.9845 

0.0000 

0.3420 

-0.9395 

0-0000 

0.5000 

-0.8660 

0.0000 

2.6425 

-0.7660 

C . GOOD 

0.7660 

-0.6425 

C.OOOO 

0.8660 

-0.5000 

0.0000 
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C  .  9-? 

-C  .3420 

C  .  0  0  c  c 

C  .  96CL 

-C.1735 

c .cooc 

1  .0000 

-C  .0144 

: -oooc 

iBPNODE  TNODE=  3, 

TNFC=  4.  T:K7C=  3,  iSND 

4SECT;  STX=G.9433, 

ST1’=  c.c::c.  £“72=  C.COOO,  SCALE=  .C9022, 

AEr=  0.0, 

THE7A=  C-C, 

:nkode.  1. 

TN’OD£=  0,  7N?£=  C,  7:NT£=  C,  iEND 

C  .0000 

-1.0000 

C  .  0000 

c . : 7; 5 

-0.9845 

c.ococ 

C  -I'-iiO 

-0.9395 

C  .0000 

C  .  5000 

-0.8660 

0  .oocc 

C  .  6425 

-0.7660 

:  .GOCG 

C.766C. 

-0.6425 

C  .0000 

C  .8660 

-0.5000 

C  .0000 

C  .5395 

-0 .3420 

C  .0000 

G  .5845 

-0.1735 

C  .0000 

1.0000 

-0.0088 

C  .0000 

4EFNODE  TNODE=  3, 

TNPCs  4,  7:NTC=  3,  iEND 

4SECT1  S'rX:.0.9606, 

ST1*=  O.OODC,  £72=  C.COOG,  SCALE=  .09022, 

AEF=  0.0, 

Tri£TA=  O.C, 

IHMODE=  1, 

TWODSs  0,  TNPS=  0,  TINTS*  0,  iEND 

0.0000 

-1.0000 

0.0000 

0-1735 

-0.9845 

0.0000 

0.3420 

-0.9395 

C  .0000 

0.5000 

-0.8660 

0.0000 

0.6425 

-0.7660 

0.0000 

0.7660 

-0.6425 

C  .0000 

0.8660 

-0.5000 

C  .0000 

0.S395 

-0.3420 

0.0000 

0.9845 

-0.1735 

0.0000 

1.0000 

-0.0065 

c.oooo 

iBPNODE  ■ 

TNODE=  3, 

TTCPC*  4,  TINTC*  3,  iEND 

4SECT1  STX.0.9735, 

ST7*  O.OOCO,  ST2=  0.0000,  SCALE*  .09022, 

ALE-  0.0, 

TOETA*  0.0, 

:nmode=  1 , 

TNOOS«  0,  TNPS*  0,  TINTS*  0,  iEND 

0.0000 

-1.0000 

C.OOOO 

0.1735 

-0.9845 

C.OOOO 

0.3420 

-0.9395 

0.0000 

0.5000 

-0.8660 

C.OOOO 

0.6425 

-0.7660 

C.OOOO 

0.7660 

-0.6415 

0.0000 

0.8660 

-0.5000 

c.oooo 

0.9395 

-0.3420 

c.oooo 

0.9845 

-0.1735 

0.0000 

1.0000 

-0.0044 

c.oooo 

4EPNODE  ' 

rNODE=  3, 

INPC*  4.  TINTC*  3,  iE.ND 

iSECTl  STXsO.S814, 

STY*  O.OCOO,  £T2*  O.OOOC,  SCALE*  -09022, 

ALFs  0.0, 

THETA*  O.C, 

INMODE*  1 , 

Tt>ODSs  0.  7N?S=  C,  TINTS*  0,  iEND 

C  .0000 

-1.0000 

C.OOOO 

C.1735 

-0.9845 

C  .0000 

0.3420 

-0.9395 

c.oooo 

0.5000 

-0.6660 

0.0000 

0.6425 

-0.7660 

c.oooo 

0.7660 

-0.6425 

c.oooo 

C  .8660 

-0.5000 

c.oooo 

C  .  5395 

-0 .3420 

0.0000 

0.5645 

-0.1735 

0.0000 

1 .0000 

-0.0044 

0.0000 

iBPNODE  ' 

TNCDE*  3, 

■n^PC*  4,  TINTC*  5,  iEND 

iSECTl 

STX=0.9842, 

STY*  O.OOOC,  STZ*  C.GOOC,  SCALE*  .09022. 

AEF.  0.0, 

THETA*  O.C, 

INMODE.  1, 

TNODS*  3,  TNPS*  IS,  TINTS*  0,  iEND 

0.0000 

-1.0000 

0.0000 

0.1735 

-0.9845 

0.0000 

0.3420 

-0.9395 

0.0000 

0.5000 

-0.8660 

C.OOOO 

0.6425 

-0.7660 

0.0000 

0.7f60 

-0.6425 

C.OOOO 

0.8660 

-0.5000 

c.oooo 

0.9395 

-0.3420 

0.0000 

0.9845 

-0.1735 

0.0000 

1  .0000 

0.0000 

c.oooo 

iSPNODE 

TNCDE.  3, 

TNPC*  4,  riNTC*  5.  iEND 

i PATCH 1 

IREV.  0, 

IDPAT*  2,  MAKE*  0,  KCOKP*  1,  KASS* 

4.  END 
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fuselage  ove-  wing 
iSECTl  ST>:  =  C  .  7362  , 
A'JF=  0,0, 
I!iKODE=  1 , 
1.0000  G.OOOO 

0.9845  C.1725 

0.9395  0.3420 

0.8660  0.5000 

0.7660  0.6425 

0.6425  0.7660 

0.5000  0.8660 

C.342C  0.5395 

0.1735  0.9845 

0.0000  1.0000 

4EPN0DE  TNCDE=  3, 
4SECT1  ST>:  =  0.7383, 
ALF=  0.0, 

:nmode=  1, 

1.0000  0.0310 

0.5845  0.1735 

0.5395  0.3420 

0.8660  0.5000 

0.7660  0.6425 

0.6425  0.7660 

0.5000  0.8660 

0.3420  0.9395 

0.1735  C.S84S 

0.0000  1.0000 

iBPNODE  TtlODE=  3 , 
iSECTl  STX=0.7444, 
ALF=  0.0, 
INMODE.  1 , 
1.0000  0.0920 

0.5845  0.1735 

0.9395  0.3420 

0.8660  0.5000 

0.7660  0.6425 

0.6425  0.7660 

0.5000  0.8660 

0.3420  0.9395 

0.1735  0.9845 

0.0000  1.0000 
iBPNODE  TNODE.  3 , 
iSECTl  STX. 0.7565, 
ADF=  0.0, 
INMODE.  1, 
1.0000  0.1563 

0.9845  0.1735 

0.5395  0.3420 

0.8660  0.5000 

0.7660  0.6425 

0.6425  0.7660 

0.5000  0.8660 

0.3420  0.9395 

0.1735  0.9845 

0.0000  1.0000 
iBPNODE  TNODE.  3, 
iSECTl  STX. 0.7736, 
ALF.  0.0, 
INMODE.  1 , 
1.0000  0.2118 
0.5845  0.2118 

0.9395  0.3420 

0.8660  0.5000 

0.7660  0.6425 

0.6425  0.7660 

0.5000  0.8660 

0.3420  0.9395 

0.1735  0.9845 

0.0000  1.0000 
iBPNODE  TNODE.  3, 
iSECTl  STX. 0.7949, 

ADF.  0.0, 
INMODE.  1, 
l.CCOO  0.25C6 
0.9845  0.2506 


STV'.  C.C00C-,  STD. 
TKETA.  0.0. 

TNODS.  0.  TNPS.  C. 
G.OOOO 
0.0000 
0.0000 
G.OOOO 
0.0000 
0 .0000 
0.0000 
C .0000 
0.0000 
0.0000 

TNPC.  4,  TINT!. 

STY.  0.0000.  ST2= 
TriETA.  0.0. 

TNODS.  C,  TNPS.  0. 
O.OOOC 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 

TNPC.  4,  TTNTC. 

STY.  0.0000,  STD. 
THETA.  0.0, 

TNODS.  0,  TNPS.  0, 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 

TNPC.  4,  TINTC. 
STY.  0.0000,  STZ. 
THETA.  0.0, 

TNODS.  0,  TNPS.  0, 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
C .0000 
0.0000 
0.0000 

TNPC.  4,  TINTC. 

STY.  0.0000,  STZ. 
THETA.  0.0, 

TNODS.  0,  TNPS.  0, 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 

TNPC.  4,  TINTC. 

STY.  0.0000,  STZ. 
THETA.  0.0, 

INODS.  0,  TNPS.  0 
0,0000 
0.0000 


.0000,  SCALE.  .C5721, 
TINTS.  0,  iENC 


iEND 

1000,  SCALE.  .09022, 
TI NTS .  0 ,  i END 


iEND 

.0000,  SCALE.  .09022 
TINTS.  0,  SEND 


3 ,  iEND 

0.0000,  SCALE.  .09022, 

TINTS.  0,  iEND 


iE-ND 

.0000.  SCALE.  .09022, 
TINTS.  0,  iEND 


iEND 

.0000,  SCALE.  .09022, 
TINTS.  0,  iEND 
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:.542C 

C'  .  C  0  0  c 

C .8660  0 . ?C0C 

c  .oooc 

C  .  6  6  C  >.  •  0  4-J  S 

c  .coco 

C.64:5  C.76t0 

C .  OuCO 

C.5000  C.8660 

0.0000 

C.342C  C,S395 

0.0000 

0.1735  C.S845 

G.OOOO 

C.OOOO  l.uOCO 

C.OOOO 

4BPNOOE  TNCDI.  3, 

TK?C=  4,  Tlt-TC^  3.  iEND 

iSEOTl  STX^C .6163. 

STV=  O.OOOC,  STZ=  C.OCCC,  SCALED  .C9'.,-2, 

AEF=  C.O, 

rr:ETA=  0  .  C  , 

nwcrH*  1. 

TN’ODS=  C,  TNPS=  0.  TINTS-  0,  iENT- 

1.0000  C.2654 

C.OOOO 

0.9845  0.2694 

O.OOOC 

C.939S  C.3420 

C.OOOO 

C.866C  C.SOCiO 

C.OOOO 

C.7660  G.6425 

0.0000 

C.6425  C.7660 

C.OOOO 

0.6000  0.8660 

C.OOOO 

0.3420  0.9395 

0.0000 

0.1735  0.9845 

0.0000 

0.0000  1.0000 

0.0000 

&BPNODE  TNODE*  3 , 

TMPC*  4,  TIKTC=  3,  iEND 

iSECTl  STX=C.e454, 

STV*  0.0000,  STZ=  C.OOOO,  SCALE*  .09022, 

ALF=  0.0, 

THETA*  0.0, 

INKODE*  1. 

mODS*  0,  TNPS*  0.  TINTS*  0,  iEND 

1.0000  0.2627 

C.OOOO 

0.9845  0.2627 

0.0000 

0.9395  0.3420 

0-0000 

0.8660  0.5000 

0.0000 

0.7660  0.6425 

0.0000 

0.6425  0.7660 

0.0000 

0.5000  0.8660 

0.0000 

C.3420  0.9395 

0.0000 

0.1735  0.9845 

0.0000 

0.0000  1.0000 

0.0000 

iBPNODE  OTODE*  3, 

TNPC*  4,  TI,VTC.  3,  iEND 

iSECTl  STX»0.6720, 

STV*  0.0000,  ST2*  C.OOOO,  SCALE*  .09022, 

ALF=  0.0, 

THETA*  0.0, 

INMODE*  1. 

TNODS*  0,  TNPS*  0,  TINTS*  0,  iEND 

1.0000  C.2395 

C.OOOO 

0.9845  0.2395 

0.0000 

0.9295  0.3420 

0.0000 

0.8660  0.5000 

C.OOOO 

0.7660  C.6425 

0.0000 

0.6425  C.7660 

0.0000 

0.5000  C.8660 

0.0000 

0.3420  0.9395 

0.0000 

C.1735  C.9845 

C.OOOO 

0.0000  1.0000 

0.0000 

iBPNODE  TN02E*  3 , 

TNPC*  4,  TINTC*  3.  iEND 

iSECTl  STX=C.8980, 

STV»  O.OOOC,  STZ*  0.0000,  SCALE*  .C'9C22, 

ALF*  0-0, 
INKODE*  1, 


1.0000 

0.2039 

0.9645 

0.2039 

0.5395 

0.3420 

0.8660 

0.5000 

0.7660 

0.6425 

0.6425 

0.7660 

0.5000 

C .8660 

0.3420 

0.9395 

0.1735 

0.9845 

0.0000 

1.0000 

iEPNODE  TNOPE*  3, 
&SECT1  STX*0.&221, 
ALF*  0.0, 
INMODE*  1, 


1.0000 

0.1608 

0.9645 

0.1735 

0.9355 

0.3420 

0.8660 

0.5000 

0.7660 

C.6425 

0.6425 

0.7660 

0.5CC0 

0.6660 

0.3420 

0.9395 

IWETA=  0.0. 

TNODS=  0,  TNP£=  C. 
C.OOOO 
G.OOOO 
C.OOOO 
0.0000 
C.OOOO 
0,0000 
0.0000 
0.0000 
0.0000 
0.0000 

TNPC*  A .  TINTC- 
STY»  0.0000,  S7Z» 
THETA*  0.0, 

TNODS*  0,  TNPS*  0 
O.OOOC 
0.0000 
0.0000 
0.0000 
0.0000 
C.OOOO 
0.0000 
0.0000 


TINTS*  0,  &END 


3,  iEND 

C.OOOO,  SCALE*  .09022, 

TINTS*  0,  iEND 
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c.;735.  c.se45  0.0000 

0.0000  1.0000  c.oooo 

iBPNCDE  TNODE*  3,  'IT.'PC^  4,  Tr.’-Tr-  O .  iEND 

iSECTi  STX=C.9433,  szy=.  0.0000,  ST3=  C.OOCC,  SCALE=  .09023, 
A2F=  0.0,  TKETA=  0.0, 

INMODE=  1,  TOODS=  0,  TN'PS=  0,  TINTS^  0,  iENO 


i .oooc 

0.1142 

C .0000 

0  .9^:45 

0.1735 

0.0000 

C . 9?9£ 

C  .  3  42  0 

c.oooo 

0  .S6dD 

0.5000 

c.oooo 

0.7660 

0.6425 

0.0000 

0.6425 

C .7660 

c.ccoo 

0 . 5000 

0.6660 

c.oooo 

G  .3420 

0.9395 

0.0000 

0.1735 

0.9845 

O.OOOC 

C.OOOO 

1 .0000 

c.oooo 

4BPNODE  TNCDE=  3.  TNPC=  4,  TIKTC=  3,  4END 

4SECT1  STX=0.96C7,  STV=  0.0000.  ST2=  C.OOOO,  S2A2.E=  .09022, 
ALF=  0.0,  THETA=  0.0, 

INMODE=  1,  TOODS=  0,  TN’P£=  0,  TINT£=  0,  iSND 


1.0000 

0.0709 

0.0000 

0.9845 

0,1735 

0.0000 

0.9395 

0.3420 

0.0000 

0.8660 

0.5000 

0.0000 

0.7660 

0.6425 

0.0000 

0.6425 

0.7660 

0 .0000 

0.5000 

0.8660 

c.oooo 

0 .3420 

C.9395 

0.0000 

0.1735 

0.9845 

0.0000 

0.0000 

1.0000 

0.0000 

4BPNODE  TNODE=  3,  TNPC*  4,  TICTC.  3,  iEMC 

iSECTl  STX=0.9737,  S7Y=  O.OOOC,  S7Z-  C.OOOO,  SCA2E-  .09022, 
ABF-  0.0,  THETA«  0.0, 

INMODE»  1,  IWODSs  0,  TNP£=  0,  TINTSa  0,  iSKD 


1.0000 

0.0355 

0.0000 

0.9645 

0.1735 

0.0000 

0.9395 

0.3420 

0.0000 

0.8660 

0.5000 

0.0000 

0.7660 

0.6425 

0.0000 

0.6425 

0.7660 

0.0000 

0.5000 

0.8660 

0.0000 

0.3420 

0.9395 

0.0000 

0.1735 

0.9845 

0.0000 

0.0000 

1.0000 

0 .0000 

4BPNODE  TNOOE=  3,  TNPC=  4,  TIN"rc=  3,  iEND 

iSECTl  STX=0.9815,  STV^  0.0000.  ST2=  C.OOOO,  SCALE=  .09022, 
ALF=  0.0,  THETA=  0.0, 

INMODE-  1,  TNODS-  0,  TNP£=  C,  TINTE-  0,  4SND 


1 .  oooc 

0.0122 

C  .  COCO 

0.9845 

0.173  5 

c.oooo 

0.9395 

0.3420 

0.0000 

0.8660 

0.5000 

c.oooo 

0.7660 

0.6425 

0.0000 

0.6425 

0.7660 

c.oooo 

0.5000 

0.8660 

0.0000 

0.3420 

0.9395 

c.oooo 

0.1735 

0.9845 

0.0000 

0.0000 

1.0000 

0.0000 

iBPNODE  TNODE-  3,  TNPC-  4,  TINTC-  3,  4END 

4SECT1  STX-0.9842,  STY-  0.0000,  S7Z=  C.OOOO,  BCALE-  .09022, 

ALF=  0.0,  THETA-  0.0, 

INMODE-  1,  TNODS-  3,  TOPS-  13,  TI.NTS-  0,  4END 

1.0000  0.0000  0.0000 

0,9845  0.1735  0.0000 

0.9395  0.3420  0.0000 

0.8660  0.5000  0.0000 

0.7660  0.6425  0.0000 

0.6425  0.7660  0.0000 

0.5000  0.8660  0.0000 

0,3420  0.9395  0.0000 

0.1735  0.9845  0.0000 

0.0000  1.0000  0.0000 

4EPNODE  TNODE-  3,  TNPC-  4,  TINTC-  3,  4END 

4PATCH1  :FEV=  0,  ILPAT-  2,  MAKE-  C,  KCOKf-  1,  flASi-  1,  4 

cer.cer  fuselage 

4SECT1  STX-  0.9842,  STY-  0.0000,  STZ-  C.OOOj,  SCALE-  0.C9022, 
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ALr 

o 

o 

II 

THETA=  C.C. 

INMODEx  1. 

TNODS=  0.  TNPP=  TltN’TSx  C , 

iEND 

C  .  C  C  0  0 

.0000 

C.OOOO 

C .  ■  72  5 

-0.9645 

C.OOOO 

C  .3420 

-C .9395 

C.OOOO 

0.5000 

-0.8660 

C.OOOO 

0.6425 

-C.7660 

C.OOOO 

0.7660 

-C.6425 

C .OOOC 

C  .8660 

-C .5000 

C.oooo 

C  .  9395 

-0.3420 

c.oooo 

C  .9845 

-0.1735 

0.0000 

■  .GCDC 

C.OOOO 

0 .0000 

0.9845 

0.1735 

C.OOOO 

C  .  9  3  9  5 

C.3420 

c.oooo 

C  .  S'  6  6  C 

C.500C 

O.OOOD 

0.766C 

0.6425 

c.oooo 

C  .6425 

C.7660 

0.0000 

0.5000 

0-8660 

c.oooo 

0.3420 

0.9395 

0.0000 

0.1735 

G.9845 

0.0000 

0.0000 

1.0000 

0.0000 

iEPNODE  TNODE.  3 , 

TNPC=  8,  TlNTCx  3, 

iEND 

iSECTl  S’TX. 

lit 

H 

2,  STy=  0-0000,  PT2=  O.OOOC,  SCALE= 

0-09022. 

ALF 

*  O.Oi 

TKETA=  0.0, 

INMODE=  0, 

TOODS=  3,  TNPS=  5,  T:nTS=  3, 

iEND 

&PATCH1  :rev=  0, 

IDPAT*  2,  MAKE=  C,  KCOMP=  1, 

KASS=  1 

fuselage  under  ttail 

&SECT1  STX 

=1.5912, 

STY=  C.OOOO,  STZ=  C.OOOO,  SCALE 

=  .09022, 

ALF 

.  0.0, 

THETA=  0.0, 

IWMODE.  1 , 

INODSs  C,  TNPSs  C,  TINTS*  0, 

tENL 

c.oooo 

-1.0000 

C.OOOO 

C.173S 

-0.9645 

0.0000 

0.3420 

-0.5355 

C.OOOO 

0.5000 

-0.6660 

C.OOOO 

0.6425 

-0.7660 

0.0000 

0.7660 

-0.6425 

c.oooo 

0.6660 

-0.5000 

0.0000 

0.5395 

-0.3420 

0.0000 

0.9645 

-0.1735 

0.0000 

1.0000 

0.0000 

0.0000 

0.9845 

0.1735 

0.0000 

0.5395 

0.3420 

c.oooo 

0.8660 

0.5000 

0.0000 

0.7660 

0.6425 

c.oooo 

0.6425 

0.7660 

c.oooo 

0.5000 

0.8660 

0.0000 

0.3420 

0.5395 

0.0000 

0.1735 

C.S845 

C.GCCO 

0.0000 

1.0000 

0.0000 

4fBPN02E  TNODEx  3 , 

TNPC=  8,  T:NTC=  3, 

6END 

&SECT1  STX 

=1 .7552, 

STY  =  0.0000,  STZ=  C.OOOO,  SCALE= 

0.09022, 

ALF 

=  0.0, 

TKETA=  0 . 0 , 

INMODEs  0, 

'IT5CDS=  3,  TNPS=  10,  TINTS*  C, 

6END 

iPATCHl  IREVs  0, 

IDPAT=  2,  MAKE*  C,  KCOKF=  1, 

KASS*  1 

aft  fuselage 

iSECTl  STX 

.1.7552, 

STY  =  0.0000,  STZ=  C.OOOO,  SCALE* 

G.0SC22, 

ALF 

=  0.0, 

TliETA*  0  -  C . 

INMODE»  1 , 

TNODSa  0,  TNPS=  0,  TINTS*  0, 

&END 

0.0000 

-1.0000 

0.0000 

0.1735 

-0.9845 

0.0000 

0.3420 

-0.9395 

0.0000 

0.5000 

-0.8660 

0.0000 

0.6425 

-0.7660 

0.0000 

0.7660 

-0.6425 

0.0000 

0.8660 

-0.5000 

0.0000 

0.9395 

-0.3420 

0.0000 

0.9645 

-0.1735 

0.0000 

1.0000 

0.0000 

0.0000 

0.9845 

0.1735 

0.0000 

0.9395 

0.3420 

0.0000 

0.8660 

0.5000 

0.0000 

0.7660 

0.6425 

0.0000 

0.6425 

0.7660 

c.oooo 

0.5000 

0.6660 

0.0000 

i.END 


teSND 
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C  .:'42 

C  0.9395 

C  .0000 

C  " 

5  C.9S<5 

0.0000 

D.OOOG  l.OOCO 

0.0000 

iEPNODE 

TNODE*  3, 

iT^pcs  8,  t:kt:=  3. 

&ErJD 

i^SECTl 

STX=  l.e34. 

STi=  O.OOOC.  ST2=  C-OCOC.  SCALE=  C.09G22, 

ALF=  0.0, 

THETA=  C.t. 

I!WODE=s  0, 

■n^ODSs  E,  TNP£=  5.  TINTS  = 

.  3 ,  &END 

NOTE: 

Wakes 

only  need  separate 

from  lifting 

sur 

Input 

direction  is  assumed  from 

root  to 

tip 

&WAKE1 

IDWA}:=I , 

IFLXWsC, 

&END 

WING  wake 

iiWAKEI 

xrWPACH*  1 , 

KWSIDE=2.  KWLIKEsC, 

KWPAi^l=C, 

KWPAK2=0, 

NODEWs3,  in:t:ai=:. 

&END 

&.SECT1 

STXs  50.0, 

STy=  C-OOOO.  £TZ=  C.74ie.  SCALE= 

1.0000, 

o 

o 

II 

< 

THETAs  0.0, 

:nmode=“1  , 

T%’ODS=  3,  TNPSs  20,  TIN’T£  = 

■ 

&END 

&WAKS1 

IDWAK=1, 

if:.xw=o, 

&END 

htail  wake 

i:WAKE2 

KWPACH=2, 

KWSIDE=2.  KWLINE=C, 

KW?AN1=0, 

KWPAN2=0, 

NODEW.S,  ZNIT:AL=i, 

&END 

&SECT1 

Slots  50.0, 

STY.  0.0000,  STZ.  0.7418.  SCALE* 

1.0000, 

ALFs  0.0. 

THETAs  0.0, 

INMODEs-1, 

TOODS*  3,  TNPS*  20,  TINTS* 

•  1 , 

iEND 

tvsi 

NVOLR.  0, 

NVOLCs  0, 

&£Nu 

SSLINl 

NSTLIN.O, 

4END 

152 


Appendix  K. 

Sample  Output  From  Data4. 


This  output  dataset  shows  the  typical  output  from 
data4 .  for  a  viscous  calculation.  This  one  is  specifically 
the  output  for  the  example  input  dataset  of  Appendix  J. 
"alpha  zero"  gives  the  calculated  for  each  dataset  read 
in  through  "drag." 

alpha  zero  -  -4.000000000 
alpha  zero  •  C . OOOOOOOOOOE+00 

This  line  shows  the  number  of  wake  iteration  step, 
a, TCLS,TCDS,TCMS. 

1.0000  2.0000  .5068  .0152  .0164 

alpha  -  0.3  'SOeSBlO-lE-Ol  aldeg  -  2.000000000 

RLXFAC  -  0.1250000000 

K  is  the  column  number  across  the  lifting  surface. 


k 

alphae 

Cl  (3-d) 

cl (2-d) 

£ 

delta  a 

1 

.92779 

.53973 

.43614 

.80807 

.04800 

2 

1.04003 

.55199 

.44549 

.80707 

.04825 

3 

1.06907 

.55516 

.44808 

.80712 

.04823 

4 

1.05264 

.55337 

.44654 

.80696 

.04827 

5 

1.00862 

.54856 

.44288 

.80735 

.04818 

6 

.94277 

.54136 

.43739 

.80794 

.04803 

7 

.85431 

.53170 

.43002 

.80876 

.04782 

8 

.74369 

.51961 

.42080 

.80983 

.04756 

9 

.60842 

.50483 

.40952 

.81122 

.04721 

10 

.44503 

.48696 

.39591 

.81301 

.04676 

11 

.24939 

.46557 

.37960 

.81535 

.04618 

12 

.01749 

.44021 

.36028 

.81843 

.04541 

13 

-.25553 

.41034 

.34179 

.83294 

.04178 

14 

-.57297 

.37559 

.32062 

.85365 

.03660 

15 

-.93784 

.33564 

.29630 

.88278 

.02931 

16 

-1.34664 

.29087 

.26905 

.92498 

.01876 

17 

-1.78577 

.24276 

.23977 

.98771 

.00307 

18 

-2.22526 

.19459 

.20218 

1.03900 

.00975 

19 

-2.65660 

.14731 

.14017 

.95156 

.01211 

20 

-3.14048 

.09425 

.07520 

.79790 

.05054 

Ic 

alphae 

Cl  (3-d) 

cl (2-d) 

f 

delta  3 

1 

.73772 

.08090 

.07575 

.93634 

.05184 

2 

.71269 

.07815 

.07318 

.93634 

.03184 

3 

.66707 

.07315 

.06849 

.93653 

.03184 

4 

. 60648 

.06651 

.06227 

.93653 

.03185 

5 

.53614 

.05879 

.05505 

.93633 

.03185 

6 

.45948 

,05039 

.04718 

.93632 

.03185 

7 

.37516 

.04114 

.03852 

.93632 

.03185 

8 

.26362 

,02891 

.02707 

.93632 

.03185 

9 

-.01299 

-.00142 

-.00104 

.72951 

.13528 

10 

-.36693 

-.04024 

-.02935 

.72952 

.13528 

1.0000  2. 

.0000  .5010 

.011 

ltd  - 

1 

%  cldiff 

-  1.15663716569542885 

k 

alphae 

Cl (3-d) 

cl (2-d) 

£ 

delta  a 

1 

.93623 

,53540 

.43684 

.81591 

.08803 

2 

1.04704 

.54748 

.44608 

.81478 

.08854 

3 

1.07528 

.55057 

.44871 

.81498 

.08847 

4 

1.05867 

.54875 

,44705 

.81466 

.08859 

5 

1.01465 

.54395 

.44338 

.81510 

.08839 

6 

.94  921 

,53682 

.43792 

.81578 

.08810 

7 

.86139 

.  52725 

.43061 

.81671 

.08768 

8 

.75157 

.51527 

.42145 

.81792 

.08714 
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9 

.61742 

.50065 

.<1C27 

.81949 

.08645 

10 

.45546 

.48299 

.39678 

.82150 

.08555 

11 

.26150 

.46184 

.38061 

.82411 

.08439 

12 

.03173 

.43680 

.36146 

.82753 

,08286 

13 

-.24141 

.40731 

.34273 

.84144 

.07621 

14 

-.56026 

.37298 

.32147 

.86191 

.06656 

15 

-.92814 

.33350 

.29695 

.89041 

.05306 

16 

-1.34348 

.28916 

.26926 

.93118 

.03363 

17 

-1.79456 

.24146 

.23919 

.99060 

.00504 

18 

-2.24403 

.19360 

.19948 

1 .03037 

-.01613 

19 

-2.65138 

.14655 

.14C92 

.96159 

.02021 

20 

-3.09453 

.09375 

.07923 

.84507 

.08297 

k 

alphae 

Cl  {2-d) 

cl (2-d) 

* 

delta  a 

1 

.74828 

.07856 

.C7683 

.97795 

.03491 

2 

.72394 

.07590 

.07453 

.97942 

.03418 

3 

.67888 

.07095 

.06971 

.98242 

.03268 

4 

.61925 

.06441 

.06358 

.98709 

.03034 

5 

.55043 

.05687 

.05652 

.99363 

.02697 

6 

.47527 

.04863 

.04880 

1 .00358 

.02210 

7 

.39266 

.03957 

.04032 

1  .01898 

.01440 

8 

.28207 

.02744 

.02896 

1.C5551 

-.00388 

9 

.11707 

-.00200 

.01202 

-1.40000 

1.30160 

10 

-.20572 

-.03739 

-.01646 

.44011 

.38144 

1  . 

.0000  2. 

.0000 

.4977  .01- 

itcl  - 

2 

%  cldif 

- 

0.657950947061181068 

k 

alphae 

Cl  (3-d) 

Cl  (2-d) 

* 

delta  a 

1 

.54332 

.53180 

.43743 

.82255 

.12141 

2 

1.0529C 

.54372 

.44657 

.82131 

.12215 

3 

1 .0BC35 

.54673 

.44921 

.82164 

.122C2 

4 

1.06355 

.54488 

.44753 

.82134 

.12219 

5 

1.01955 

.54009 

.44379 

.82168 

.12194 

6 

.95446 

.53302 

.43836 

.82242 

.12149 

7 

.86726 

.52353 

.43109 

.82344 

.12088 

e 

.75833 

.51169 

.42202 

.82476 

.12008 

9 

.62523 

.49721 

.41093 

.82646 

.11904 

10 

.46455 

.47974 

.39753 

.82864 

.11771 

11 

.27204 

.45882 

.38149 

.63146 

.11599 

12 

.04388 

.43403 

.36248 

.83515 

.11373 

13 

-.22943 

.40485 

.34353 

.84852 

.10456 

14 

-.54962 

.37086 

.32218 

.86873 

.09107 

15 

-.92057 

.33173 

.29745 

.89668 

.07226 

16 

-1 .34137 

.28776 

.26940 

.93619 

.04538 

17 

-1.80233 

.24039 

.23867 

.99284 

.00620 

18 

-2.25763 

.19281 

.19753 

1.C2446 

-.02023 

19 

-2.64865 

.14596 

.14131 

.96815 

.02564 

20 

-3.06568 

.09336 

.08175 

.87566 

.10369 

k 

alphae 

Cl  (3-d) 

cl (2-d) 

I 

delta  a 

1 

.75158 

.07859 

.07717 

.98195 

.0352; 

2 

.72643 

.07591 

.07459 

.96257 

.03435 

3 

.68001 

.07099 

.06982 

.98360 

.03271 

4 

.61756 

.06439 

.06541 

.96471 

.03040 

5 

.54395 

.05669 

.05585 

.98518 

.02764 

6 

.46086 

.04812 

.04732 

.98348 

.02484 

7 

.36406 

.03834 

.03738 

.97487 

.02357 

8 

.20747 

.02318 

.02130 

.91913 

.03754 

9 

1.25676 

-.00492 

.12532 

-1.40000 

2.17633 

10 

.30890 

-.00795 

.C3172 

-1.40000 

1.48621 

1, 

.0000  2, 

■  00  0  s/ 

,4948  .0:< 

itcl  - 

3 

%  cldlff 

- 

0.5829604342579841 

61 

k 

a Iphae 

Cl (3-d) 

cl  (2-d) 

i 

delta  a 

1 

.94956 

.52884 

.43795 

.82814 

.14921 

2 

1.C5798 

.54060 

.44699 

.82683 

.15019 

3 

1  .08472 

.54354 

.44965 

.82726 

.14996 

4 

1 .06804 

.54170 

.44798 

.82699 

.15018 

5 

1 .02411 

.53693 

.44417 

.82724 

.14990 

6 

.95919 

.52988 

.43876 

.82803 

.14931 

7 

.87232 

.52046 

.43152 

.8'>911 

.14850 

8 

.76393 

.50870 

.42248 

.t  052 

.14745 

9 

.63165 

.49435 

.41146 

.83232 

.14609 

10 

.47185 

.47703 

.39814 

.83464 

.14435 

11 

.28048 

.45629 

.38219 

.83762 

.14210 

12 

.05355 

.43171 

.36328 

.64150 

.13915 
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13 

-.21996 

.40279 

.34426 

.85444 

.12789 

14 

-.54127 

.36909 

.32274 

.87441 

.11109 

15 

-.91465 

.23027 

.29785 

.90163 

.06778 

16 

-1.34015 

.28661 

.26948 

.94024 

,05466 

17 

-1.80922 

.23951 

.23821 

.99458 

.00678 

18 

-2.26780 

.19215 

.19607 

1  .C204C 

-.02280 

19 

-2.64779 

.14546 

.14144 

.97235 

.02935 

20 

-3.04806 

.09302 

.08390 

.90195 

,11525 

k 

alphae 

Cl  (3-d) 

Cl  (2-d) 

s 

delta  a 

1 

,75153 

.07855 

.07717 

.98257 

.03525 

2 

.72595 

.07584 

.07454 

.98285 

.03435 

3 

.67848 

.07082 

.06967 

.98376 

.03266 

A 

.61449 

.06405 

.06309 

.98507 

.03027 

5 

.53866 

.05604 

.05531 

.96698 

.02725 

6 

.45296 

.04695 

.04651 

.  .99064 

.02331 

7 

.35481 

.03635 

.03643 

1.0C233 

.01636 

8 

.20634 

.01851 

.02119 

1.14454 

-.04415 

Here  the  ote'^ocgeometric/  therefore  ttg  is  set  equal  to 

Ctgeometric  • 

alpeff  >  geometric  alpha 


9 

2.00000 

-.01200 

.19304 

-1.40000 

2.83239 

10 

1.47725 

-.00098 

.14541 

1 .00000 

1.11466 

1. 

.0000  2. 

.0000  .4926  .01 

itcl  - 

4 

%  cldiff  - 

0.43446822C91 9370651 

k 

alphae 

Cl  (3-d) 

cl  (2-d) 

f 

aelta  a 

1 

.95480 

.52637 

.43839 

.63285 

.17236 

2 

: .06239 

.53802 

.44742 

.83159 

.17353 

3 

1.08861 

.54091 

.45004 

.83200 

.17323 

4 

1.07180 

.53905 

.44836 

.63175 

.17349 

5 

1.02800 

.53430 

.44449 

.83192 

.17320 

6 

.96332 

.52729 

.43910 

.83274 

.17248 

7 

.87677 

.51792 

.43189 

.83388 

.17148 

8 

.76889 

.50625 

.42290 

.83536 

.17019 

9 

.63709 

.49199 

.41191 

.83724 

.16854 

10 

.47803 

.47479 

.39866 

.83965 

.16641 

11 

.28749 

.45420 

.38278 

.84276 

.16366 

12 

.06147 

.42979 

.36394 

.84678 

.16007 

13 

-.21215 

.40109 

.34468 

.85936 

.14708 

14 

-.53446 

.36765 

.32319 

.87908 

.12745 

15 

-.90992 

.32909 

.29816 

.90602 

.10031 

16 

-1.33942 

.28567 

.26953 

.94349 

.06196 

17 

-1.81509 

.23880 

.23782 

.99589 

.00696 

le 

-2.27540 

.19159 

.19497 

1.01763 

-.02436 

19 

-2.64790 

.14504 

.14142 

.97505 

.03193 

20 

-3.03903 

.09274 

.08519 

.91864 

.12119 

k 

alphae 

Cl (3-d) 

cl (2-d) 

1 

delca  a 

1 

,75364 

.07878 

,07738 

.98225 

.03530 

2 

.72808 

.07608 

.07476 

.98269 

,03442 

3 

.68027 

.07102 

. 06985 

.98355 

.03272 

4 

.61593 

.06422 

.06324 

.98473 

.C3C34 

5 

.53914 

.05613 

,05536 

.90616 

.02736 

6 

.45136 

.04694 

.04634 

.98731 

.02383 

7 

.34599 

.03615 

.03553 

.98279 

,02088 

6 

.11195 

.01712 

.01150 

.67150 

.13118 

alpeff 

>  geometric 

alpha 

9 

2.00000 

-.01103 

,19304 

-1.40C00 

3.32443 

10 

1  .32699 

.02328 

.13172 

1 .40000 

.63586 

This  is  a  listing  of  the  values  used  in  calculating  Cd  and 
Cm  . 


ncol 

xle 

xdi  6t 

zle 

zdlst 

arearat 

cl 2dpt 

cm2dp 

1 

.7382 

.0615 

.0000 

.0000 

.0365 

.4384 

-.0898 

2 

.7382 

.0615 

.0000 

.0000 

.0362 

.4474 

-.0894 

3 

.7382 

.0615 

.0000 

.0000 

.0358 

.4500 

-.0893 

4 

.7382 

.0615 

.COCO 

.0000 

.0351 

.4484 

-.0894 

5 

.7382 

.0615 

.0000 

.0000 

.0342 

.  4445 

-.0895 
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6 

.7382  .0615 

.0000 

.0000 

.0331 

.4391 

-.0897 

7 

.7362  .0615 

.0000 

.0000 

.0318 

.4319 

-.0900 

8 

.7382  .0615 

.0000 

.0000 

.0303 

.4229 

-.0903 

9 

.7382  .0615 

.0000 

.0000 

.0287 

.4119 

-.0908 

10 

.7382  .0615 

.0000 

.0000 

.0268 

.3987 

-.0913 

11 

.7382  .0615 

.0000 

.0000 

.0248 

.3828 

-.0919 

12 

.7382  .0615 

.0000 

.0000 

.0226 

.3639 

-.0926 

13 

.7382  .0615 

.0000 

.0000 

.0203 

.3447 

-.0934 

14 

.7382  .0615 

.0000 

.0000 

.0176 

.3232 

-.0942 

15 

.7382  .0615 

.0000 

.0000 

.0153 

.2982 

-.0952 

16 

.7382  .0615 

.0000 

.0000 

.0126 

.2695 

-.0964 

17 

.7382  .0615 

.0000 

.0000 

.0099 

,2378 

-.0977 

18 

.7382  .0615 

.0000 

.0000 

.0071 

.1950 

-.0985 

19 

.7382  .0615 

.0000 

.0000 

.0043 

.1424 

-.0985 

20 

.7382  .0615 

.0000 

.0000 

.0014 

.0852 

-.0985 

1 

1.5912  -.7710 

.4167 

.4167 

.0195 

.0774 

-.0002 

2 

1.5912  -.7710 

.4167 

,4167 

.0190 

.0748 

-.0002 

3 

1.5912  -.7710 

.4167 

.4167 

.0180 

.0698 

-.0002 

4 

1.5912  -.7710 

.4167 

.4167 

.0167 

.0632 

-.0003 

5 

1.5912  -.7710 

.4167 

.4167 

.0149 

.0554 

-.0003 

6 

1.5912  -.7710 

.4167 

.4167 

.0127 

.04  63 

-.0004 

7 

1.5912  -.7710 

.4167 

,4167 

.0102 

.0355 

-.0005 

8 

1.5912  -.7710 

.4167 

.4167 

.0075 

.0115 

-.0007 

9 

1.5912  -.7710 

.4167 

.4167 

.0046 

.1930 

.0039 

10 

1.5912  -.7710 

.4167 

.4167 

.0015 

.1317 

.0014 

1 . 0000 

2 . OCOC 

.4901 

.0288  .0057 

itcl  - 

>  5 

i  cidit: 

-  C,39l€ 

55042767524729 

This 

is  a  listing  of  the 

iteration 

sequence .  Values  given 

are : 

viscous 

iteratin  number 

(0  is 

the  initial  inviscid 

calculation . ) 

r  Cl  diff  /  Cl 

f  Cd 

f  c^ . 

0 

,0000 

.5068 

.0152 

.0164 

: 

.0116 

.5010 

.0150 

.0169 

2 

.0066 

.4977 

.0148 

.0161 

3 

.0058 

.4948 

.0147 

.0161 

4 

.0043 

.4926 

.0146 

,0152 

5 

.0039 

.4907 

.0288 

.0057 
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